blob: 990ec58bffe13833ae53148d74d93f4dd600151e [file] [log] [blame]
! { dg-do compile }
! PR 92780 - this used to ICE instead of being rejected.
! Test case by Gerhard Steinmetz.
program p
associate (y => p) ! { dg-error "Invalid association target" }
end associate ! { dg-error "Expecting END PROGRAM statement" }
end program p