repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
* cfgloopmanip.c (duplicate_loop_to_header_edge): Cleanup profile
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
dec_structure_19.f90
blob
9ea0b3efe13cd2d244e5607e410bb7d0d9705685
1
! { dg-do compile }
2
! { dg-options "-fdec-structure -ffree-form" }
3
!
4
! Test the %FILL component extension.
5
!
6
implicit none
7
8
structure
/
s
/
9
character
(
2
)
i
10
character
(
2
) %
fill
11
character
(
2
)
j
12
end structure
13
14
structure
/
s2
/
15
character
buf
(
6
)
16
end structure
17
18
record
/
s
/
x
19
record
/
s2
/
y
20
equivalence
(
x
,
y
)
21
22
x
.
i
=
"12"
23
x
.
j
=
"34"
24
25
if
(
y
.
buf
(
1
) .
ne
.
'1'
)
then
26
call
abort
27
endif
28
if
(
y
.
buf
(
2
) .
ne
.
'2'
)
then
29
call
abort
30
endif
31
if
(
y
.
buf
(
5
) .
ne
.
'3'
)
then
32
call
abort
33
endif
34
if
(
y
.
buf
(
6
) .
ne
.
'4'
)
then
35
call
abort
36
endif
37
38
end