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