summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/iso_fortran_env_2.f90
blob: 6f8d228d924b5b4a7cf47fa64a0490ccc32cc98a (plain)
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" } }