OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [allocate_with_typespec_1.f90] - Blame information for rev 694

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn 
! { dg-do compile }
2 
!
3 
! Allocation of arrays with a type-spec specification with implicit none.
4 
!
5 
subroutine implicit_none_test1
6 
 
7 
   implicit none
8 
 
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(:)
16 
 
17 
   type a
18 
      integer mytype
19 
   end type a
20 
 
21 
   type(a), allocatable :: b(:)
22 
 
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))
30 
   allocate(a :: b(1))
31 
 
32 
end subroutine implicit_none_test1
33 
!
34 
! Allocation of a scalar with a type-spec specification with implicit none
35 
!
36 
subroutine implicit_none_test2
37 
 
38 
   implicit none
39 
 
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
47 
 
48 
   type a
49 
      integer mytype
50 
   end type a
51 
 
52 
   type(a), allocatable :: b
53 
 
54 
   allocate(real :: x)
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)
61 
   allocate(a :: b)
62 
 
63 
end subroutine implicit_none_test2
64 
!
65 
! Allocation of arrays with a type-spec specification with implicit none.
66 
!
67 
subroutine implicit_test3
68 
 
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(:)
76 
 
77 
   type a
78 
      integer mytype
79 
   end type a
80 
 
81 
   type(a), allocatable :: b(:)
82 
 
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))
90 
   allocate(a :: b(1))
91 
 
92 
end subroutine implicit_test3
93 
!
94 
! Allocation of a scalar with a type-spec specification without implicit none
95 
!
96 
subroutine implicit_test4
97 
 
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
105 
 
106 
   type a
107 
      integer mytype
108 
   end type a
109 
 
110 
   type(a), allocatable :: b
111 
 
112 
   allocate(real :: x)
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)
119 
   allocate(a :: b)
120 
 
121 
end subroutine implicit_test4

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.