blob: 3e5f6b6d1d43853bc7123308dd065c60939a57ed [file] [log] [blame]
! { dg-do compile }
! PR fortran/103412
program p
integer, parameter :: a = sizeof(z'1') ! { dg-error "cannot be an actual" }
end