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