3 ! { dg-final { scan-assembler-not "i_am_optimized_away" } }
7 ! PARAMETER arrays and derived types exists as static variables.
8 ! Check that the their read-only nature is taken into account
9 ! when optimizations are done.
13 integer, parameter :: PARA(*) = [1,2,3,4,5,6,7,8,9,10]
20 if (para(i
) /= 1) call i_am_optimized_away()