2 ! { dg-options "-fdec-structure" }
8 character(*), intent(in
) :: s
51 r4
.rx
= 'AAAAAAAA.BBB.C.D'
53 if ( r4
.rx
.ne
. 'AAAAAAAA.BBB.C.D' ) call aborts ("rax")
54 if ( r4
.rh
.ne
. 'AAAAAAAA' ) call aborts ("rah")
55 if ( r4
.rl
.ne
. '.BBB.C.D' ) call aborts ("ral")
56 if ( r4
.ex
.ne
. '.BBB.C.D' ) call aborts ("eax")
57 if ( r4
.eh
.ne
. '.BBB' ) call aborts ("eah")
58 if ( r4
.el
.ne
. '.C.D' ) call aborts ("eal")
59 if ( r4
.x
.ne
. '.C.D' ) call aborts ("ax")
60 if ( r4
.h
.ne
. '.C' ) call aborts ("ah")
61 if ( r4
.l
.ne
. '.D' ) call aborts ("al")