summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/proc_decl_11.f90
blob: 74c0680692ae296ef211bce7b7d6150cc337097b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
! { dg-do compile }
! PR fortran/33917
!
! Depending, in which order the symbol tree
! was walked in resolve, gfortran resolved
! p6 before p4; thus there was no explicit
! interface available for p4 and an error
! was printed. (This is a variant of proc_decl_2.f90)
!
! Additionally, the following contrain was not honoured:
! "C1212 (R1215) [...] If name is declared by a procedure-declaration-stmt
! it shall be previously declared." ("name" = interface-name)
!
program s
  implicit none
  procedure() :: q2
  procedure() :: q3
  procedure() :: q5
  procedure(sub) :: p4
  procedure(p4) :: p6
contains
  subroutine sub
  end subroutine
end program s

subroutine test
  implicit none
  abstract interface
    subroutine sub()
    end subroutine sub
  end interface
  procedure(p4) :: p6 ! { dg-error "declared in a later PROCEDURE statement" }
  procedure(sub) :: p4
end subroutine test