3 ! PR20902 - Overlapping initializers in an equivalence block must
6 ! The code was replaced completely after the fix for PR30875, which
7 ! is a repeat of the original and comes from the same contributor.
8 ! The fix for 20902 was wrong.
10 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
16 TYPE T2
! OK because initializers are equal
28 EQUIVALENCE (a1
, a3
) ! { dg-error "Overlapping unequal initializers" }
29 write(6, *) a1
, a2
, a3