blob: d19b81d6e472b9db9297ecc797ca76c7944f123a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
! { dg-do compile }
!
! checking invalid code for PROCEDURE POINTERS
!
! Contributed by Janus Weil <janus@gcc.gnu.org>
PROCEDURE(REAL), POINTER :: ptr
PROCEDURE(REAL), SAVE :: noptr ! { dg-error "attribute conflicts with" }
ptr => cos(4.0) ! { dg-error "Invalid character" }
ALLOCATE(ptr) ! { dg-error "must be ALLOCATABLE" }
end
|
