mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
47 lines
1.4 KiB
Fortran
47 lines
1.4 KiB
Fortran
! { dg-do run }
|
|
! { dg-options "-fdec-structure" }
|
|
!
|
|
! Test old-style CLIST initializers in STRUCTURE.
|
|
!
|
|
|
|
subroutine aborts (s)
|
|
character(*), intent(in) :: s
|
|
print *, s
|
|
STOP 1
|
|
end subroutine
|
|
|
|
integer, parameter :: as = 3
|
|
structure /s8/
|
|
character*20 c /"HELLO"/ ! ok
|
|
integer*2 j /300_4/ ! ok, converted
|
|
integer k /65536_8/ ! ok, implicit
|
|
integer*4 l /200000/ ! ok, types match
|
|
integer m(5) /5,4,3,2,1/! ok
|
|
integer n(5) /1,3*2,1/ ! ok, with repeat spec (/1,2,2,2,1/)
|
|
integer o(as) /as*9/ ! ok, parameter array spec
|
|
integer p(2,2) /1,2,3,4/! ok
|
|
real q(3) /1_2,3.5,2.4E-12_8/ ! ok, with some implicit conversions
|
|
integer :: canary = z'3D3D3D3D'
|
|
end structure
|
|
|
|
record /s8/ r8
|
|
|
|
! Old-style (clist) initializers in structures
|
|
if ( r8.c /= "HELLO" ) call aborts ("r8.c")
|
|
if ( r8.j /= 300 ) call aborts ("r8.j")
|
|
if ( r8.k /= 65536 ) call aborts ("r8.k")
|
|
if ( r8.l /= 200000 ) call aborts ("r8.l")
|
|
if ( r8.m(1) /= 5 .or. r8.m(2) /= 4 .or. r8.m(3) /= 3 &
|
|
.or. r8.m(4) /= 2 .or. r8.m(5) /= 1) &
|
|
call aborts ("r8.m")
|
|
if ( r8.n(1) /= 1 .or. r8.n(2) /= 2 .or. r8.n(3) /= 2 .or. r8.n(4) /= 2 &
|
|
.or. r8.n(5) /= 1) &
|
|
call aborts ("r8.n")
|
|
if ( r8.o(1) /= 9 .or. r8.o(2) /= 9 .or. r8.o(3) /= 9 ) call aborts ("r8.o")
|
|
if ( r8.p(1,1) /= 1 .or. r8.p(2,1) /= 2 .or. r8.p(1,2) /= 3 &
|
|
.or. r8.p(2,2) /= 4) &
|
|
call aborts ("r8.p")
|
|
if ( r8.canary /= z'3D3D3D3D' ) call aborts ("r8.canary")
|
|
|
|
end
|