gcc/testsuite/gfortran.dg/proc_decl_6.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

! { dg-do compile }
! PR fortran/33945
!
! MODULE PROCEDURE in the interface was wrongly accepted
module modproc2
  implicit none
  interface
    subroutine x
    end subroutine x
  end interface
  procedure(x) :: y
  interface bar
    module procedure y ! { dg-error "not a module procedure" }
  end interface bar
end module modproc2

end