gcc/testsuite/gfortran.dg/submodule_20.f08

   1 ! { dg-do compile }
   2 !
   3 ! Test the fix for PR77903
   4 !
   5 ! Contributed by Damian Rouson  <damian@sourceryinstitute.org>
   6 !
   7 module one_module
   8   implicit none
   9   interface
  10     module function one()
  11     end function
  12     integer module function two()
  13     end function
  14   end interface
  15 end module
  16
  17 submodule(one_module) one_submodule
  18   implicit none
  19 contains
  20   integer module function one()  ! { dg-error "Type mismatch" }
  21     one = 1
  22   end function
  23   integer(8) module function two()  ! { dg-error "Type mismatch" }
  24     two = 2
  25   end function
  26 end submodule
  27