1! { dg-do compile } 2! PR fortran/48831 3! Contributed by Tobias Burnus 4 5program 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 16end program p1 17