! { dg-do compile } ! Tests the fix for PR30319, in which the use of the parameter 'aa' in ! the array constructor that initialises bb would cause an internal ! error in resolution. ! ! Contributed by Vivek Rao ! module foomod character (len=1), parameter :: aa = "z", bb(1) = (/aa/) end module foomod use foomod print *, aa, bb end ! { dg-final { cleanup-modules "foomod" } }