gcc/testsuite/gfortran.dg/iso_fortran_env_2.f90

   1 ! { dg-do compile }
   2 module iso_fortran_env
   3   logical :: x
   4 end module iso_fortran_env
   5
   6 subroutine bar1
   7   use , intrinsic :: iso_fortran_env
   8   print *, character_storage_size
   9 end
  10
  11 subroutine bar2
  12   use, intrinsic :: iso_fortran_env
  13   print *, character_storage_size
  14 end
  15
  16 subroutine bar3
  17   use,intrinsic :: iso_fortran_env
  18   print *, character_storage_size
  19 end
  20
  21 subroutine bar4
  22   use,intrinsic::iso_fortran_env
  23   print *, character_storage_size
  24 end
  25
  26 subroutine bar5
  27   use ,intrinsic :: iso_fortran_env
  28   print *, character_storage_size
  29 end
  30
  31 subroutine foo1
  32   use :: iso_fortran_env
  33   print *, x
  34 end
  35
  36 subroutine foo2
  37   use:: iso_fortran_env
  38   print *, x
  39 end
  40
  41 subroutine foo3
  42   use::iso_fortran_env
  43   print *, x
  44 end
  45
  46 subroutine foo4
  47   use  ::iso_fortran_env
  48   print *, x
  49 end
  50
  51 subroutine gee1
  52   use , non_intrinsic :: iso_fortran_env
  53   print *, x
  54 end
  55
  56 subroutine gee2
  57   use, non_intrinsic :: iso_fortran_env
  58   print *, x
  59 end
  60
  61 subroutine gee3
  62   use,non_intrinsic :: iso_fortran_env
  63   print *, x
  64 end
  65
  66 subroutine gee4
  67   use,non_intrinsic::iso_fortran_env
  68   print *, x
  69 end
  70
  71 subroutine gee5
  72   use ,non_intrinsic :: iso_fortran_env
  73   print *, x
  74 end
  75
  76 ! { dg-final { cleanup-modules "iso_fortran_env" } }