?  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 / pr69514_1.f90
blob561740fb35b7f5006c930d8895e38bdd0f74aa26
1 ! { dg-do run }
2 program foo
3 real, parameter :: x(3) = 2.0 * [real :: 1, 2, 3 ]
4 if (any(x /= [2., 4., 6.])) STOP 1
5 end program foo
Mirror of the offical gcc git repository hosted at gcc.gnu.org