gcc/testsuite/gfortran.dg/module_naming_1.f90

   1 ! { dg-do assemble }
   2 ! PR 31144
   3 ! Makes sure that our name mangling scheme can't be outwitted
   4
   5 ! old scheme
   6 module m1
   7 contains
   8   subroutine m2__m3()
   9   end subroutine m2__m3
  10 end module m1
  11
  12 module m1__m2
  13 contains
  14   subroutine m3()
  15   end subroutine m3
  16 end module m1__m2
  17
  18 ! New scheme, relies on capitalization
  19 module m2
  20 contains
  21   subroutine m2_MOD_m3()
  22     ! mangled to __m2_MOD_m2_mod_m3
  23   end subroutine m2_MOD_m3
  24 end module m2
  25
  26 module m2_MOD_m2
  27 contains
  28   subroutine m3()
  29     ! mangled to __m2_mod_m2_MOD_m3
  30   end subroutine m3
  31 end module m2_MOD_m2