mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-21 14:50:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

Really commit testcase intended for r240230.

Browse Source 
2016-09-23  Fritz Reese  <fritzoreese@gmail.com>

Really commit testcase intended for r240230.

	* gcc/testsuite/gfortran.dg/dec_structure_15.f90: Really commit.

From-SVN: r240433
This commit is contained in:
Fritz Reese 2016-09-23 13:31:37 +00:00
parent 113d06a486
commit 30faeb0f99
1 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
gcc/testsuite/gfortran.dg/dec_structure_15.f90 Normal file
View File

@ -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" } }