blob: a61cc9d85b11f0be90f7757a84a6a7baa2a402f3 [file] [log] [blame]
! { 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