gcc/testsuite/gfortran.dg/module_implicit_conversion.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-std=gnu" }
   3
   4 module module_implicit_conversion
   5   ! double complex :: s = (1.0D0, 0D0)
   6   double complex :: s = (1.0, 0D0)
   7 end module module_implicit_conversion
   8
   9 ! { dg-final { cleanup-modules "module_implicit_conversion" } }