summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/proc_decl_6.f90
blob: d2a6a1de96622a5a220eaac57dd4d25c947a875b (plain)
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