modula2: Simplify REAL/LONGREAL/SHORTREAL node creation.
[official-gcc.git] / gcc / testsuite / gfortran.dg / assign_9.f90
blob05e85b5b3b216c3922b0e98cd37b899fe285e355
1 ! { dg-do run }
2 ! Tests the fix for PR33749, in which one of the two assignments
3 ! below would not produce a temporary for the index expression.
5 ! Contributed by Dick Hendrickson on comp.lang.fortran,
6 ! " Most elegant syntax for inverting a permutation?" 20071006
8 integer(4) :: p(4) = (/2,4,1,3/)
9 integer(8) :: q(4) = (/2,4,1,3/)
10 p(p) = (/(i, i = 1, 4)/)
11 q(q) = (/(i, i = 1, 4)/)
12 if (any(p .ne. q)) STOP 1
13 end