gcc/testsuite/gfortran.dg/convert_1.f90

   1 ! { dg-do compile }
   2 ! PR 26201: Check that the __convert_*_* functions are treated as intrinsics
   3 ! rather than module functions.
   4 ! Testcase contributed by Philippe Schaffnit and François-Xavier Coudert.
   5 MODULE MODULE_A
   6     REAL :: a = 0
   7 END MODULE MODULE_A
   8
   9 MODULE MODULE_B
  10     REAL :: b = 0
  11 END MODULE MODULE_B
  12
  13 USE MODULE_A
  14 USE MODULE_B
  15 a = 0
  16 END
  17
  18 ! { dg-final { cleanup-modules "MODULE_A MODULE_B" } }