From 30faeb0f99e8618739217ff3efa930cc382d8448 Mon Sep 17 00:00:00 2001 From: Fritz Reese Date: Fri, 23 Sep 2016 13:31:37 +0000 Subject: [PATCH] Really commit testcase intended for r240230. 2016-09-23 Fritz Reese Really commit testcase intended for r240230. * gcc/testsuite/gfortran.dg/dec_structure_15.f90: Really commit. From-SVN: r240433 --- gcc/testsuite/gfortran.dg/dec_structure_15.f90 | 27 ++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/dec_structure_15.f90 diff --git a/gcc/testsuite/gfortran.dg/dec_structure_15.f90 b/gcc/testsuite/gfortran.dg/dec_structure_15.f90 new file mode 100644 index 0000000..fd06ff9 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/dec_structure_15.f90 @@ -0,0 +1,27 @@ +! { dg-do "compile" } +! { dg-options "" } +! +! PR fortran/77584 +! Regression where "structure" and "record" greedily matched a +! declaration-type-spec in a procedure-declaration-statement (R1212). +! +module dec_structure_15 + abstract interface + double precision function structure_() + end function structure_ + end interface + abstract interface + double precision function record_() + end function record_ + end interface +contains + double precision function a() + procedure(structure_), pointer :: b ! regression: Unclassifiable statement + a = 0.0 + end function + double precision function a2() + procedure(record_), pointer :: b ! regression: Unclassifiable statement + a2 = 0.0 + end function +end module +! { dg-final { cleanup-modules "dec_structure_15" } } -- 2.7.4