blob: b3a455aa719753c66ba239f37e63f4063eff9818 (
plain)
1
2
3
4
5
6
7
|
! { dg-do compile }
program picky
character(len=:), parameter :: a="whoops" ! { dg-error "POINTER or ALLOCATABLE" }
character(len=:) :: b="whoops" ! { dg-error "POINTER or ALLOCATABLE" }
character(len=:) :: good
pointer good
end program picky
|
