Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/dec_union_5.f90 @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } ! { dg-options "-fdec-structure" } ! ! Test UNIONs with array components. ! subroutine aborts (s) character(*), intent(in) :: s print *, s call abort() 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) = z'41' r5.a(2) = z'42' r5.a(3) = z'43' r5.a(4) = z'44' r5.a(5) = z'45' 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