diff options
author | Ben Cheng <bccheng@google.com> | 2014-03-25 22:37:19 -0700 |
---|---|---|
committer | Ben Cheng <bccheng@google.com> | 2014-03-25 22:37:19 -0700 |
commit | 1bc5aee63eb72b341f506ad058502cd0361f0d10 (patch) | |
tree | c607e8252f3405424ff15bc2d00aa38dadbb2518 /gcc-4.9/gcc/testsuite/gfortran.dg/proc_ptr_comp_3.f90 | |
parent | 283a0bf58fcf333c58a2a92c3ebbc41fb9eb1fdb (diff) | |
download | toolchain_gcc-1bc5aee63eb72b341f506ad058502cd0361f0d10.tar.gz toolchain_gcc-1bc5aee63eb72b341f506ad058502cd0361f0d10.tar.bz2 toolchain_gcc-1bc5aee63eb72b341f506ad058502cd0361f0d10.zip |
Initial checkin of GCC 4.9.0 from trunk (r208799).
Change-Id: I48a3c08bb98542aa215912a75f03c0890e497dba
Diffstat (limited to 'gcc-4.9/gcc/testsuite/gfortran.dg/proc_ptr_comp_3.f90')
-rw-r--r-- | gcc-4.9/gcc/testsuite/gfortran.dg/proc_ptr_comp_3.f90 | 52 |
1 files changed, 52 insertions, 0 deletions
diff --git a/gcc-4.9/gcc/testsuite/gfortran.dg/proc_ptr_comp_3.f90 b/gcc-4.9/gcc/testsuite/gfortran.dg/proc_ptr_comp_3.f90 new file mode 100644 index 000000000..eb1d84555 --- /dev/null +++ b/gcc-4.9/gcc/testsuite/gfortran.dg/proc_ptr_comp_3.f90 @@ -0,0 +1,52 @@ +! { 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(), pointer, nopass :: ptr1 + 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(), nopass :: ptr8 ! { dg-error "POINTER attribute is required" } + procedure(pp), pointer, nopass :: ptr9 ! { dg-error "declared in a later PROCEDURE statement" } + real :: y +end type t + +type :: t2 + procedure(aaargh), pointer, nopass :: ptr10 ! { dg-error "must be explicit" } +end type + +type,bind(c) :: bct ! { dg-error "BIND.C. derived type" } + procedure(), pointer,nopass :: ptr ! { dg-error "cannot be a member of|may not be C interoperable" } +end type bct + +procedure(sub), pointer :: pp + +type(t) :: x + +x%ptr2 => x ! { dg-error "Invalid procedure pointer assignment" } + +x => x%ptr2 ! { dg-error "Non-POINTER in pointer association context" } + +print *, x%ptr1() ! { dg-error "attribute conflicts with" } +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 |