1! { dg-do compile }
2
3! PR fortran/36492
4! Similar to the ICE-test, but now test it works for real constants.
5
6implicit none
7
8integer, parameter :: a = 42
9type t
10  character (a) :: arr (1) = [ "a" ]
11end type t
12
13end
14