?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
* tree-loop-distribution.c (struct partition): New field recording
[official-gcc.git] / gcc / testsuite / gfortran.dg / pr69514_1.f90
blobd72a450dc58d858541c4e1cc1781557611c401ed
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.])) call abort
5 end program foo
Mirror of the offical gcc git repository hosted at gcc.gnu.org