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