folding07.f90 19 KB
! RUN: %S/test_folding.sh %s %t %f18
! Test numeric model inquiry intrinsics

module m

  integer, parameter :: &
    bs1 = bit_size(0_1), &
    bs2 = bit_size(0_2), &
    bs4 = bit_size(0_4), &
    bs8 = bit_size(0_8), &
    bs16 = bit_size(0_16)
  logical, parameter :: test_bit_size_1 = bs1 == 8
  logical, parameter :: test_bit_size_2 = bs2 == 16
  logical, parameter :: test_bit_size_4 = bs4 == 32
  logical, parameter :: test_bit_size_8 = bs8 == 64
  logical, parameter :: test_bit_size_16 = bs16 == 128

  real(2), parameter :: &
    eps2 = epsilon(0._2), zeps2 = real(z'1000', kind=2), deps2 = 4.8828125e-4_2
  real(3), parameter :: &
    eps3 = epsilon(0._3), zeps3 = real(z'3b80', kind=3), deps3 = 3.90625e-3_3
  real(4), parameter :: &
    eps4 = epsilon(0._4), zeps4 = real(z'33800000', kind=4), &
    deps4 = 5.9604644775390625e-8_4
  real(8), parameter :: &
    eps8 = epsilon(0._8), zeps8 = real(z'3ca0000000000000', kind=8), &
    deps8 = 1.1102230246251565404236316680908203125e-16_8
  real(10), parameter :: &
    eps10 = epsilon(0._10), zeps10 = real(z'3fbf8000000000000000', kind=10), &
    deps10 = 5.42101086242752217003726400434970855712890625e-20_10
  real(16), parameter :: &
    eps16 = epsilon(0._16), &
    zeps16 = real(z'3f8e0000000000000000000000000000', kind=16), &
    deps16 = 9.629649721936179265279889712924636592690508241076940976199693977832794189453125e-35_16
  logical, parameter :: test_eps2 = eps2 == zeps2 .and. eps2 == deps2
  logical, parameter :: test_eps3 = eps3 == zeps3 .and. eps3 == deps3
  logical, parameter :: test_eps4 = eps4 == zeps4 .and. eps4 == deps4
  logical, parameter :: test_eps8 = eps8 == zeps8 .and. eps8 == deps8
  logical, parameter :: test_eps10 = eps10 == zeps10 .and. eps10 == deps10
  logical, parameter :: test_eps16 = eps16 == zeps16 .and. eps16 == deps16

  integer(1), parameter :: &
    ihuge1 = huge(0_1), zihuge1 = int(z'7f', kind=1), dihuge1 = 127_1
  integer(2), parameter :: &
    ihuge2 = huge(0_2), zihuge2 = int(z'7fff', kind=2), dihuge2 = 32767_2
  integer(4), parameter :: &
    ihuge4 = huge(0_4), zihuge4 = int(z'7fffffff', kind=4), &
    dihuge4 = 2147483647_4
  integer(8), parameter :: &
    ihuge8 = huge(0_8), zihuge8 = int(z'7fffffffffffffff', kind=8), &
    dihuge8 = 9223372036854775807_8
  integer(16), parameter :: &
    ihuge16 = huge(0_16), &
    zihuge16 = int(z'7fffffffffffffffffffffffffffffff', kind=16), &
    dihuge16 = 170141183460469231731687303715884105727_16
  logical, parameter :: test_ihuge1 = ihuge1 == zihuge1 .and. ihuge1 == dihuge1
  logical, parameter :: test_ihuge2 = ihuge2 == zihuge2 .and. ihuge2 == dihuge2
  logical, parameter :: test_ihuge4 = ihuge4 == zihuge4 .and. ihuge4 == dihuge4
  logical, parameter :: test_ihuge8 = ihuge8 == zihuge8 .and. ihuge8 == dihuge8
  logical, parameter :: test_ihuge16 = ihuge16 == zihuge16 .and. ihuge16 == dihuge16

  real(2), parameter :: &
    ahuge2 = huge(0._2), zahuge2 = real(z'7bff', kind=2), dahuge2 = 6.5504e4_2
  real(3), parameter :: &
    ahuge3 = huge(0._3), zahuge3 = real(z'7f7f', kind=3), &
    dahuge3 = 3.3895313892515354759047080037148786688e38_3
  real(4), parameter :: &
    ahuge4 = huge(0._4), zahuge4 = real(z'7f7fffff', kind=4), &
    dahuge4 = 3.4028234663852885981170418348451692544e38_4
  real(8), parameter :: &
    ahuge8 = huge(0._8), zahuge8 = real(z'7fefffffffffffff', kind=8), &
    dahuge8 = 1.7976931348623157081452742373170435679807056752584499659891747680315726078002853876058955863276687817&
               &1540458953514382464234321326889464182768467546703537516986049910576551282076245490090389328944075868&
               &5084551339423045832369032229481658085593321233482747978262041447231687381771809192998812504040261841&
               &24858368e308_8
  real(10), parameter :: &
    ahuge10 = huge(0._10), zahuge10 = real(z'7ffeffffffffffffffff', kind=10), &
    dahuge10 = 1.1897314953572317650212638530309702051690633222946242004403237338917370055229707226164102903365288828&
                &5354569780749557731442744315367028843419812557385374367867359320070697326320191591828296152436552951&
                &0646791086614311790632169778838896134786560600399148753433211454911160088679845154866512852340149773&
                &0376000091254793939662231513836224178385427439178381387178058894875405751682263476592355769748051137&
                &2564902088485522249479139937758502601177354918009979622602685950855888360815984690023564513234659447&
                &6384939859276456284579661772930407806609229102715046085388087959327781622986827547830768080040150694&
                &9423034117289577771003357140105597752421240573470073862516601108283791196230084692772009651535002084&
                &7447079244384854591288672300061908512647211195136146752763351956292759795725027800298079590419313960&
                &3021470997035276467445530922022679656280991498232083329641241038509239184734786121921697210543484287&
                &0483534081130425730022164213489173471742348007148807510020643905172342476560047217680964861079949434&
                &1570347632064355862420744350442438056613601760883747816538902780957697597728686007148702828795556714&
                &1404632615832623602762896316173978484254486860609948270867968048078702511858930838546584223040908805&
                &9962945945862019037660484467909260022254105307759010657606713472001258464069570302571389609837579989&
                &2695455305236856075868317922311363951946885088077187210470520395758748001314313144425494391994017575&
                &3169339392366881856189129931729104252921236835159922322050998001677102784035360140829296398115122877&
                &7681357060457893435354516965395612540488464471697868932116710872290880827783505182288576460622187397&
                &0285165508372099234948333443522898475123275372663606621390228126470623407535207172405866507951821730&
                &3463782631353393706774901950197841690441824738063162828586857741432581165364040218402724913393320949&
                &2194984224427304270198730445366203502623869578046820036014472919971230955300572061418669748528468561&
                &8651483271597448120312194675168637934309618961510733006555242148519520176285859509105183947250286387&
                &1632494167613804996319791441870254302706758495192008837915169401581740046711477877201459644461175204&
                &0594535047647218079757611117208462736392796003396704700376133745095531841500737964126050479232516613&
                &5484129188421134082301547330475406707281876350361733290800595189632520707167390454777712968226520622&
                &5651439919376804400292380903112437912614776255964694221981375146967079446870358004392507659451618379&
                &8118593920495440361149153107822510726914869798092409467721427270124043771874092167566136349389004512&
                &3235166814608932240069799317601780533819184998193300841098599393876029260139091141452600372028487213&
                &2411955424282101831204216104467404621635336900583664606591156298764745525068145003932941404131495400&
                &6776029510059622530228230036314738246810596484424413248645731374375950964161680480241293518762046681&
                &3563687753281467553879887177183651289394719533506188500326760735438867336800207438784965701457609034&
                &9857571243045102038730494854256702479339322809110526041538528994849203991091946129912491633289917998&
                &0943803378795220931314669461497059396641523759492858909604899161219449899863848370224866722491489246&
                &7841020618336462741696957630763248023558797524525373703543388296086275342774001633343405508353704850&
                &7374544819754722228975281083020898682633020285259923084168054539687911418297629988964576482765287504&
                &5628549242651652177507995162596692291149777889623566709566271384820181913483216879958636526376209782&
                &8507009933729439678463987902491451422274252700636394232799848397673998715441855420156224415492665301&
                &4515504685489258620276085761837129763358761215382565129633538141663949516556000264159186554850057052&
                &6114319529199188079545223946496276356301785808966922264062353828985358675959906470083856871238103295&
                &9192649484625076899225841930548076362021508902214922052806984201835084058693849381549890944546197789&
                &3029113576516775406232278298314033473276603952231603422824717528181818844304880921321933550869873395&
                &8612760736708666523755556758031714901084773200964243187800700087973460329062789435537435644488519071&
                &9161645514115576193939969076741515640282654366402676009508752394550734155613586793306603174472092444&
                &6513532366647649735400851967040771103640538150073486891798364049570606189535005089840913826869535090&
                &0667833244725787121966044152849248400418509328119089636341757398971665960007594878006191640948543387&
                &5852065711654107226099628815012314437794400874930194474433078438899570184271000480830501217712356062&
                &2895076269042856800047718893158089358515593863176652948089031267747029662545110861548958395087796755&
                &4641379448959605279752098748138397625785921057562844017593493241621483395653501891968113890918437957&
                &3470326940634289008780584694035245347939808067427323629788710086717580253156130235606487870925986528&
                &8416350972529537091114317204887747405539054009425375424119317944175137064689643861517718849867010341&
                &5325423859110896247108853858086888377772586485641459342621210866475884892600317623459607695088491496&
                &6244415660441955208681198977024e4932_10
  real(16), parameter :: &
    ahuge16 = huge(0._16), zahuge16 = real(z'7ffeffffffffffffffffffffffffffff', kind=16), &
    dahuge16 = 1.1897314953572317650857593266280070161964690526416940455296988842121635797553123923249740128484620735&
                &2590203356474912685975526543357380446267269875194526149085346195872502126284586579940540449357468156&
                &6096686172574953791792292256220777095858112702436475442537092608935138247345677279593806773692330094&
                &6157461197257841728898925219399207576542048645656733564522472781522888677006389355954564966995114417&
                &5290960687851325094831139688610052683309212868397475219226638679188087369434307734815556410166997113&
                &8512786874753496996549221727686770196551512812712488289469952298031867469924683981576664562667786719&
                &0614996396303416570983054252372208766646300878087672561828032202122199248523759030495209113959109189&
                &2120527349676858811903011159301878936803923201167140417584510885470696521560577711351625740481881769&
                &5075025715299705916714352103671782759119316034498392169720631800164034124698918142227577300459309880&
                &4547151796062998955075830758511951858579711731676769660579988993526318854177162953020146688023840758&
                &4603622660648014297759540713505037980864913015716402406031178690879637251033587351277479527574859541&
                &7572920936651398752709055215663939505589207804914540432978557623565645991208599669097180808881920063&
                &7227714312184890119222096790535459636284173260024397328029395243137866685140273814343210366365711716&
                &7042358647275956123197079396783927914728272019537706060212263845788320480934171752680963925353944773&
                &0280863675704796054050525162959099932535265586464682793821550087166946662209865086040990507131145474&
                &2674110428395423227629949387596131127438371928396826762575553883728144908453957471281620658715882191&
                &0888724011665136196205080002917629993882608241754751673226993047313326125892184551681523545535431045&
                &8114528303607394526100730578774092094736822286015459361126642549541799645333882549670764145955017051&
                &3308000612538651401801532119293614565003435147928902055320217600618822326157365533772949809740595905&
                &2018796145979938674151302850593441045360348019238334932111517181105100410859283099181138255290906487&
                &3029533418691087118107895004426881765865961841419267486232005929789956207494587649901662172318722999&
                &4845123258260870315619363836897406865052797752967893316136838227985970406516005241290251498948731531&
                &9694209505667084746692764481259650670012944357951247923062137397808873125708979962290218382410541293&
                &0483065603459863120371744282301377070153823878609951218937542956964157950988060608985782910656238116&
                &1422035741047574518281708048752574462041283485138290827317223641893804935883389476643706232798207558&
                &3164620541748839306283820178954721954319445090211369992596537690819279215212221282457887933650687528&
                &8617303469517112245451315447164280392523574962804175375927948971096983905242318797695347043690474223&
                &8132665056397611644388442665313646268512196339944341540985621273959361844218214442734315345078601616&
                &1428702272098406156966033337278824103713153807737748015267058325792053556997331818811268567331899796&
                &7497786786001251403873023920127717626858627038170562807276699687356274072773403132694104831615879354&
                &3958115858251128378415632227616233344591881315378823557324830300859768903829697344762145934281912127&
                &1714133304757786755221851743106484876037319629031012446614508707837714052853304868420427879959665251&
                &4009368964527494988719996088230065668196236298805733689960371306226158464997243490564472254071897564&
                &1441285398399860960455632647712855850663041779957201017448443871583297673755604162078008788300720724&
                &1390865785566723954636935777578134428819598917631335685641784543423281488674422674670706697975557712&
                &1788798468777700116472954103621810567107869855646414713502627836321256957407217461738363552424248762&
                &4364780853518109957492932381740813319050481446127009055414257022203025376114948242287653245779337785&
                &1981877869734028258091278067497905893806255685600107605770598216668682475603756961576049761981948205&
                &2758118532729333127733603742149847001463931981340719681330844408263017545241644293372483217234561694&
                &2639378557592944486629790954192274518015884259778696940266014279196551684158959230431151917518727133&
                &4609575263460825447598815416225495259785319903964588374219923638761039583094807436598839770784963225&
                &2080920941206268114832425403540515474312327876180802357701527842702008781378306569508588571830140611&
                &0980426830095308627974030153554643774062498539644810004022317716657008936075218040845236685686491032&
                &5886266629337247244143556352059546170104239050079561583450594483732665254246744436486149918427509748&
                &5253621979537504128523848241127715641240965261646703516395599407360083455079665191393229410544185167&
                &9990997876554244625589008743884056491694537267393122602348155432978423086460721901479480729284567258&
                &3503954612118213364077776992584180757905173583882311275962271406750966991364528828189455892561297242&
                &5252452248453502562347348900936766966136332741088135837550717443838484760651019872222926016920811114&
                &6169371432077434885046020127763642567468723152059526010722289706864609324352227544963417635351891055&
                &48847634608972381760403137363968e4932_16
  logical, parameter :: test_ahuge2 = ahuge2 == zahuge2 .and. ahuge2 == dahuge2
  logical, parameter :: test_ahuge3 = ahuge3 == zahuge3 .and. ahuge3 == dahuge3
  logical, parameter :: test_ahuge4 = ahuge4 == zahuge4 .and. ahuge4 == dahuge4
  logical, parameter :: test_ahuge8 = ahuge8 == zahuge8 .and. ahuge8 == dahuge8
  logical, parameter :: test_ahuge10 = ahuge10 == zahuge10 .and. ahuge10 == dahuge10
  logical, parameter :: test_ahuge16 = ahuge16 == zahuge16 .and. ahuge16 == dahuge16

  real(2), parameter :: tiny2 = tiny(0._2), ztiny2 = real(z'0400', kind=2)
  real(3), parameter :: tiny3 = tiny(0._3), ztiny3 = real(z'0080', kind=3)
  real(4), parameter :: tiny4 = tiny(0._4), ztiny4 = real(z'00800000', kind=4)
  real(8), parameter :: tiny8 = tiny(0._8), ztiny8 = real(z'0010000000000000', kind=8)
  real(10), parameter :: tiny10 = tiny(0._10), ztiny10 = real(z'00018000000000000000', kind=10)
  real(16), parameter :: tiny16 = tiny(0._16), ztiny16 = real(z'00010000000000000000000000000000', kind=16)
  logical, parameter :: test_tiny2 = tiny2 == ztiny2
  logical, parameter :: test_tiny3 = tiny3 == ztiny3
  logical, parameter :: test_tiny4 = tiny4 == ztiny4
  logical, parameter :: test_tiny8 = tiny8 == ztiny8
  logical, parameter :: test_tiny10 = tiny10 == ztiny10
  logical, parameter :: test_tiny16 = tiny16 == ztiny16

  integer, parameter :: &
    max2 = maxexponent(0._2), &
    max3 = maxexponent(0._3), &
    max4 = maxexponent(0._4), &
    max8 = maxexponent(0._8), &
    max10 = maxexponent(0._10), &
    max16 = maxexponent(0._16)
  logical, parameter :: test_max2 = max2 == 15
  logical, parameter :: test_max3 = max3 == 127
  logical, parameter :: test_max4 = max4 == 127
  logical, parameter :: test_max8 = max8 == 1023
  logical, parameter :: test_max10 = max10 == 16383
  logical, parameter :: test_max16 = max16 == 16383

  integer, parameter :: &
    min2 = minexponent(0._2), &
    min3 = minexponent(0._3), &
    min4 = minexponent(0._4), &
    min8 = minexponent(0._8), &
    min10 = minexponent(0._10), &
    min16 = minexponent(0._16)
  logical, parameter :: test_min2 = min2 == -14
  logical, parameter :: test_min3 = min3 == -126
  logical, parameter :: test_min4 = min4 == -126
  logical, parameter :: test_min8 = min8 == -1022
  logical, parameter :: test_min10 = min10 == -16382
  logical, parameter :: test_min16 = min16 == -16382

  integer, parameter :: &
    irange1 = range(0_1), &
    irange2 = range(0_2), &
    irange4 = range(0_4), &
    irange8 = range(0_8), &
    irange16 = range(0_16)
  logical, parameter :: test_irange1 = irange1 == 2
  logical, parameter :: test_irange2 = irange2 == 4
  logical, parameter :: test_irange4 = irange4 == 9
  logical, parameter :: test_irange8 = irange8 == 18
  logical, parameter :: test_irange16 = irange16 == 38

  integer, parameter :: &
    arange2 = range(0._2), zrange2 = range((0._2,0._2)), &
    arange3 = range(0._3), zrange3 = range((0._3, 0._3)), &
    arange4 = range(0._4), zrange4 = range((0._4, 0._4)), &
    arange8 = range(0._8), zrange8 = range((0._8, 0._8)), &
    arange10 = range(0._10), zrange10 = range((0._10, 0._10)), &
    arange16 = range(0._16), zrange16 = range((0._16, 0._16))
  logical, parameter :: test_arange2 = arange2 == 4 .and. zrange2 == 4
  logical, parameter :: test_arange3 = arange3 == 37 .and. zrange3 == 37
  logical, parameter :: test_zrange4 = arange4 == 37 .and. zrange4 == 37
  logical, parameter :: test_zrange8 = arange8 == 307 .and. zrange8 == 307
  logical, parameter :: test_zrange10 = arange10 == 4931 .and. zrange10 == 4931
  logical, parameter :: test_zrange16 = arange16 == 4931 .and. zrange16 == 4931

end module