gcc/testsuite/gfortran.dg/parameter_array_element_2.f90

   1 ! { dg-do compile }
   2 ! PR fortran/48831
   3 ! Contributed by Tobias Burnus
   4
   5 program p1
   6     implicit none
   7     integer, parameter  :: i1    = kind(0)
   8     integer, parameter  :: i2(1) = [i1]
   9     integer(kind=i2(1)) :: i3
  10
  11     i3 = int(0, i1)
  12     print *, i3
  13
  14     i3 = int(0, i2(1))  ! This line gives an error when compiling.
  15     print *, i3
  16 end program p1