gcc/testsuite/gfortran.dg/pr83113.f90


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

! { dg-do compile }
! PR fortran/83113
module mm
  implicit none
  interface
     module function c()
       integer, dimension(2)  :: c
     end function c
  end interface
end module mm

submodule (mm) oo
  implicit none
contains
  module function c()
    integer, dimension(3)  :: c
  end function c
end submodule oo