Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/dec_union_10.f90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! { dg-options "-fdec-structure" } ! ! Check for regression where gfc_compare_union_types wasn't properly guarded ! against empty unions. ! subroutine sub1(r) structure /s/ union end union end structure record /s/ r end subroutine subroutine sub2() structure /s/ union end union end structure record /s/ r call sub1(r) end subroutine call sub2() end