diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/proc_ptr_comp_3.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/proc_ptr_comp_3.f90 | 46 |
1 files changed, 46 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_comp_3.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_comp_3.f90 new file mode 100644 index 00000000000..34c27f3c451 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/proc_ptr_comp_3.f90 @@ -0,0 +1,46 @@ +! { dg-do compile } +! +! PR39630: Fortran 2003: Procedure pointer components. +! +! Probing some error messages. +! +! Contributed by Janus Weil <janus@gcc.gnu.org> + +implicit none + +interface + subroutine sub + end subroutine +end interface + +external :: aaargh + +type :: t + procedure(sub), pointer :: ptr1 ! { dg-error "not yet implemented" } + procedure(real), pointer, nopass :: ptr2 + procedure(sub), pointer, nopass :: ptr3 + procedure(), pointer, nopass ptr4 ! { dg-error "Expected '::'" } + procedure(), pointer, nopass, pointer :: ptr5 ! { dg-error "Duplicate" } + procedure, pointer, nopass :: ptr6 ! { dg-error "Syntax error" } + procedure(), pointer, nopass :: ptr7 => ptr2 ! { dg-error "requires a NULL" } + procedure(), nopass :: ptr8 ! { dg-error "POINTER attribute is required" } + procedure(pp), pointer, nopass :: ptr9 ! { dg-error "declared in a later PROCEDURE statement" } + procedure(aaargh), pointer, nopass :: ptr10 ! { dg-error "must be explicit" } + real :: y +end type t + +procedure(sub), pointer :: pp + +type(t) :: x + +x%ptr2 => x ! { dg-error "Invalid procedure pointer assignment" } + +x => x%ptr2 ! { dg-error "Pointer assignment to non-POINTER" } + +call x%ptr2() ! { dg-error "attribute conflicts with" } +print *,x%ptr3() ! { dg-error "attribute conflicts with" } + +call x%y ! { dg-error "Expected type-bound procedure or procedure pointer component" } + +end + |