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