summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/parameter_array_init_3.f90
blob: e39da8e8063a3d0863aa0ec59dc63a9f279dda2a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
! { dg-do compile }
! Test the fix for PR34476 in which an 'out of bounds' error would be
! generated for the array initializations AND the implicit index 'i'
! would be rejected.
!
! Reported by Tobias Burnus <burnus@gcc.gnu.org> following a thread
! on comp.lang.fortran (see PR)
!
module abuse_mod
   implicit none
   integer i
   character(8), parameter :: HEX1 = '40490FDB'
   integer(1), parameter :: MSKa1(len(HEX1)) =  [(1,i=1,len(HEX1))]
   integer(1), parameter :: ARR1(len(HEX1)) = [( MSKa1(i), i=1,len(HEX1) )]
end module abuse_mod
! { dg-final { cleanup-modules "abuse_mod" } }