3 C 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))
34 C 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 C 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))
94 C 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
)