Increase timeout factor for hppa*-*-* in gcc.dg/long_branch.c

[official-gcc.git] / gcc / testsuite / gfortran.dg / dec_union_10.f90

! { 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