Imported Upstream version 4.8.1
[platform/upstream/gcc48.git] / 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