| ! { dg-do run } | |
| ! { dg-options "-fdec-structure" } | |
| ! | |
| ! Test STRUCTUREs containin other STRUCTUREs. | |
| ! | |
| subroutine aborts (s) | |
| character(*), intent(in) :: s | |
| print *, s | |
| STOP 1 | |
| end subroutine | |
| ! Basic structure | |
| structure /s1/ | |
| integer i1 | |
| logical l1 | |
| real r1 | |
| character c1 | |
| end structure | |
| structure /s2/ | |
| integer i | |
| record /s1/ r1 | |
| endstructure | |
| record /s1/ r1 | |
| record /s2/ r2, r2_a(10) | |
| ! Nested and array records | |
| r2.r1.r1 = 135.79 | |
| r2_a(3).r1.i1 = -13579 | |
| if (r2.r1.r1 .ne. 135.79) then | |
| call aborts("r1.r1.r1") | |
| endif | |
| if (r2_a(3).r1.i1 .ne. -13579) then | |
| call aborts("r2_a(3).r1.i1") | |
| endif | |
| end |