blob: 2da97731d395f95b0f7124fc5887d5fc8ad861c9 [file] [log] [blame]
! { dg-do compile }
! PR fortran/103590 - ICE: find_array_spec(): Missing spec
! Contributed by G.Steinmetz
program p
associate (a => 1)
print *, [character(a(1)) :: '1'] ! { dg-error "Scalar INTEGER expression" }
end associate
end