35 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12type :: t13 sequence4 integer :: m = 1235 integer :: pad6end type7type :: t28 sequence9 integer :: n = 12310 integer :: pad11end type12type :: t313 sequence14 integer :: k = 23415 integer :: pad16end type17!ERROR: Distinct default component initializations of equivalenced objects affect 'x1a%m' more than once18type(t1) :: x1a19!ERROR: Distinct default component initializations of equivalenced objects affect 'x2a%n' more than once20type(t2) :: x2a21!ERROR: Distinct default component initializations of equivalenced objects affect 'x3%k' more than once22type(t3), save :: x323!ERROR: Explicit initializations of equivalenced objects affect 'ja(2_8)' more than once24!ERROR: Explicit initializations of equivalenced objects affect 'ka(1_8)' more than once25integer :: ja(2), ka(2)26data ja/345, 456/27data ka/456, 567/28equivalence(x1a, x2a, x3)29! Same value: no error30type(t1) :: x1b31type(t2) :: x2b32equivalence(x1b, x2b)33equivalence(ja(2),ka(1))34end35