diff options
Diffstat (limited to 'gcc-4.8/gcc/testsuite/gfortran.dg/proc_ptr_46.f90')
| -rw-r--r-- | gcc-4.8/gcc/testsuite/gfortran.dg/proc_ptr_46.f90 | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/gcc-4.8/gcc/testsuite/gfortran.dg/proc_ptr_46.f90 b/gcc-4.8/gcc/testsuite/gfortran.dg/proc_ptr_46.f90 new file mode 100644 index 000000000..2c05f59d8 --- /dev/null +++ b/gcc-4.8/gcc/testsuite/gfortran.dg/proc_ptr_46.f90 @@ -0,0 +1,14 @@ +! { dg-do compile } +! +! PR fortran/49397 +! +! Invalid per IR F08/0060 and F2008Corr2, C729 +! + +! Print *,f() ! << Valid when uncommented +Contains + Subroutine s + Procedure(Real),Pointer :: p + p => f ! { dg-error "Procedure pointer target 'f' at .1. must be either an intrinsic, host or use associated, referenced or have the EXTERNAL attribute" } + End Subroutine +End |