diff options
Diffstat (limited to 'gcc-4.9/gcc/testsuite/gfortran.dg/proc_decl_27.f90')
| -rw-r--r-- | gcc-4.9/gcc/testsuite/gfortran.dg/proc_decl_27.f90 | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/gcc-4.9/gcc/testsuite/gfortran.dg/proc_decl_27.f90 b/gcc-4.9/gcc/testsuite/gfortran.dg/proc_decl_27.f90 new file mode 100644 index 000000000..cb16ecfa2 --- /dev/null +++ b/gcc-4.9/gcc/testsuite/gfortran.dg/proc_decl_27.f90 @@ -0,0 +1,23 @@ +! { dg-do compile } +! +! PR 50659: [4.5/4.6/4.7 Regression] [F03] ICE on invalid with procedure interface +! +! Contributed by Andrew Benson <abenson@caltech.edu> + +module m1 + integer :: arrSize +end module + +module m2 +contains + function Proc (arg) + use m1 + double precision, dimension(arrSize) :: proc + double precision :: arg + end function +end + + use m2 + implicit none + procedure(Proc) :: Proc_Get +end |