blob: 27c8f051b58ad19ee08bc8df26ce6a6b3b62be65 (
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
|
! { dg-do run }
! { dg-options "-fdec-structure" }
!
! Basic STRUCTURE test.
!
subroutine aborts (s)
character(*), intent(in) :: s
print *, s
STOP 1
end subroutine
! Basic structure
structure /s1/ ! type s1
integer i1
logical l1
real r1
character c1
end structure ! end type s1
record /s1/ r1 ! type (s1) r1
record /s1/ r1_a(3) ! type (s1) r1_a(3)
! Basic records
r1.i1 = 13579 ! r1%i1 = ...
r1.l1 = .true.
r1.r1 = 13.579
r1.c1 = 'F'
r1_a(2) = r1
r1_a(3).r1 = 135.79
if (r1.i1 .ne. 13579) then
call aborts("r1.i1")
endif
if (r1.l1 .neqv. .true.) then
call aborts("r1.l1")
endif
if (r1.r1 .ne. 13.579) then
call aborts("r1.r1")
endif
if (r1.c1 .ne. 'F') then
call aborts("r1.c1")
endif
if (r1_a(2).i1 .ne. 13579) then
call aborts("r1_a(2).i1")
endif
if (r1_a(3).r1 .ne. 135.79) then
call aborts("r1_a(3).r1")
endif
end
|
