| ! { dg-do run } |
| ! { dg-options "-fdec-structure" } |
| ! |
| ! Test UNIONs with array components. |
| ! |
| |
| subroutine aborts (s) |
| character(*), intent(in) :: s |
| print *, s |
| STOP 1 |
| end subroutine |
| |
| ! Unions with arrays |
| structure /s5/ |
| union |
| map |
| character :: s(5) |
| end map |
| map |
| integer(1) :: a(5) |
| end map |
| end union |
| end structure |
| |
| record /s5/ r5 |
| |
| ! Unions with arrays |
| r5.a(1) = int(z'41',1) |
| r5.a(2) = int(z'42',1) |
| r5.a(3) = int(z'43',1) |
| r5.a(4) =int( z'44',1) |
| r5.a(5) = int(z'45',1) |
| if ( r5.s(1) .ne. 'A' & |
| .or. r5.s(2) .ne. 'B' & |
| .or. r5.s(3) .ne. 'C' & |
| .or. r5.s(4) .ne. 'D' & |
| .or. r5.s(5) .ne. 'E') then |
| call aborts ("arrays") |
| endif |
| |
| end |