| ! { dg-do run } |
| ! { dg-options "-fdec-structure" } |
| ! |
| ! Test anonymous STRUCTURE definitions. |
| ! |
| |
| subroutine aborts (s) |
| character(*), intent(in) :: s |
| print *, s |
| STOP 1 |
| end subroutine |
| |
| structure /s5/ |
| structure recrd, recrd_a(3) |
| real x, y |
| end structure |
| end structure |
| |
| record /s5/ r5 |
| |
| r5.recrd.x = 1.3 |
| r5.recrd.y = 5.7 |
| r5.recrd_a(1) = r5.recrd |
| r5.recrd_a(2).x = 5.7 |
| r5.recrd_a(2).y = 1.3 |
| |
| if (r5.recrd.x .ne. 1.3) then |
| call aborts("r5.recrd.x") |
| endif |
| |
| if (r5.recrd.y .ne. 5.7) then |
| call aborts("r5.recrd.y") |
| endif |
| |
| if (r5.recrd_a(1).x .ne. 1.3 .or. r5.recrd_a(1).y .ne. 5.7) then |
| call aborts("r5.recrd_a(1)") |
| endif |
| |
| if (r5.recrd_a(2).x .ne. 5.7 .or. r5.recrd_a(2).y .ne. 1.3) then |
| call aborts("r5.recrd_a(2)") |
| endif |
| |
| end |