1! { dg-do compile }
2! { dg-additional-options "-O2" }
3
4program p
5 integer, parameter :: n = 8
6 integer :: i, z(n)
7 z = [(i, i=1,n)]
8 print *, z
9end
10subroutine s
11 integer, parameter :: n = 8
12 integer :: i, z(n)
13 z = [(i, i=1,n)]
14 print *, z
15end
16