3 ! checking invalid code for PROCEDURE POINTERS
5 ! Contributed by Janus Weil <janus@gcc.gnu.org>
7 PROCEDURE(REAL), POINTER :: ptr
8 PROCEDURE(REAL), SAVE :: noptr ! { dg-error "attribute conflicts with" }
17 ptr => cos(4.0) ! { dg-error "Invalid procedure pointer assignment" }
18 ptr => x ! { dg-error "Invalid procedure pointer assignment" }
19 ptr => sin(x) ! { dg-error "Invalid procedure pointer assignment" }
21 ptr => bar ! { dg-error "is invalid in procedure pointer assignment" }
23 ALLOCATE(ptr) ! { dg-error "must be ALLOCATABLE" }