3 ! Allocation of arrays with a type-spec specification with implicit none.
5 subroutine implicit_none_test1
9 real, allocatable
:: x(:)
10 real(4), allocatable
:: x4(:)
11 real(8), allocatable
:: x8(:)
12 double precision, allocatable
:: d1(:)
13 doubleprecision, allocatable
:: d2(:)
14 character, allocatable
:: c1(:)
15 character(len
=4), allocatable
:: c2(:)
21 type(a
), allocatable
:: b(:)
23 allocate(real :: x(1))
24 allocate(real(4) :: x4(1))
25 allocate(real(8) :: x8(1))
26 allocate(double precision :: d1(1))
27 allocate(doubleprecision :: d2(1))
28 allocate(character :: c1(1))
29 allocate(character(len
=4) :: c2(1))
32 end subroutine implicit_none_test1
34 ! Allocation of a scalar with a type-spec specification with implicit none
36 subroutine implicit_none_test2
40 real, allocatable
:: x
41 real(4), allocatable
:: x4
42 real(8), allocatable
:: x8
43 double precision, allocatable
:: d1
44 doubleprecision, allocatable
:: d2
45 character, allocatable
:: c1
46 character(len
=4), allocatable
:: c2
52 type(a
), allocatable
:: b
55 allocate(real(4) :: x4
)
56 allocate(real(8) :: x8
)
57 allocate(double precision :: d1
)
58 allocate(doubleprecision :: d2
)
59 allocate(character :: c1
)
60 allocate(character(len
=4) :: c2
)
63 end subroutine implicit_none_test2
65 ! Allocation of arrays with a type-spec specification with implicit none.
67 subroutine implicit_test3
69 real, allocatable
:: x(:)
70 real(4), allocatable
:: x4(:)
71 real(8), allocatable
:: x8(:)
72 double precision, allocatable
:: d1(:)
73 doubleprecision, allocatable
:: d2(:)
74 character, allocatable
:: c1(:)
75 character(len
=4), allocatable
:: c2(:)
81 type(a
), allocatable
:: b(:)
83 allocate(real :: x(1))
84 allocate(real(4) :: x4(1))
85 allocate(real(8) :: x8(1))
86 allocate(double precision :: d1(1))
87 allocate(doubleprecision :: d2(1))
88 allocate(character :: c1(1))
89 allocate(character(len
=4) :: c2(1))
92 end subroutine implicit_test3
94 ! Allocation of a scalar with a type-spec specification without implicit none
96 subroutine implicit_test4
98 real, allocatable
:: x
99 real(4), allocatable
:: x4
100 real(8), allocatable
:: x8
101 double precision, allocatable
:: d1
102 doubleprecision, allocatable
:: d2
103 character, allocatable
:: c1
104 character(len
=4), allocatable
:: c2
110 type(a
), allocatable
:: b
113 allocate(real(4) :: x4
)
114 allocate(real(8) :: x8
)
115 allocate(double precision :: d1
)
116 allocate(doubleprecision :: d2
)
117 allocate(character :: c1
)
118 allocate(character(len
=4) :: c2
)
121 end subroutine implicit_test4