?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
PR inline-asm/84742
[official-gcc.git] / gcc / testsuite / gfortran.dg / tiny_2.f90
blobb6c44e2ae0c83f3da2f0c452873b19630ecb3b63
1 ! { dg-do run }
2 program tiny2
3 real(4) x4
4 real(8) x8
5 x4 = tiny(x4)
6 x8 = tiny(x8)
7 if (minexponent(x4) /= exponent(x4)) STOP 1
8 if (minexponent(x8) /= exponent(x8)) STOP 2
9 end program tiny2
Mirror of the offical gcc git repository hosted at gcc.gnu.org