gcc/testsuite/gfortran.dg/pr89943_2.f90

   1 ! { dg-do compile }
   2 ! PR fortran/89943
   3 ! Code contributed by Alberto Luaces  <aluaces at udc dot se>
   4 module Foo_mod
   5
   6    implicit none
   7
   8    interface
   9       module function runFoo4C(ndim) bind(C, name="runFoo")
  10          use, intrinsic :: iso_c_binding
  11          implicit none
  12          integer runFoo4c
  13          integer(c_int32_t) , intent(in) :: ndim
  14       end function runFoo4C
  15    end interface
  16
  17    contains
  18
  19 end module Foo_mod
  20
  21 submodule(Foo_mod) Foo_smod
  22
  23    contains
  24
  25       module function runFoo4C(ndim) bind(C, name="runFoo")
  26          use, intrinsic :: iso_c_binding
  27          implicit none
  28          integer runFoo4c
  29          integer(c_int32_t) , intent(in) :: ndim
  30       end function runFoo4C
  31
  32 end submodule Foo_smod
  33