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)) call abort ()