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