1*6c1ac141SIvan Zhechev! RUN: %python %S/test_errors.py %s %flang_fc1 2d60a0220Speter klauslertype :: t1 3d60a0220Speter klausler sequence 4d60a0220Speter klausler integer :: m = 123 5d60a0220Speter klausler integer :: pad 6d60a0220Speter klauslerend type 7d60a0220Speter klauslertype :: t2 8d60a0220Speter klausler sequence 9d60a0220Speter klausler integer :: n = 123 10d60a0220Speter klausler integer :: pad 11d60a0220Speter klauslerend type 12d60a0220Speter klauslertype :: t3 13d60a0220Speter klausler sequence 14d60a0220Speter klausler integer :: k = 234 15d60a0220Speter klausler integer :: pad 16d60a0220Speter klauslerend type 17d60a0220Speter klausler!ERROR: Distinct default component initializations of equivalenced objects affect 'x1a%m' more than once 18d60a0220Speter klauslertype(t1) :: x1a 19d60a0220Speter klausler!ERROR: Distinct default component initializations of equivalenced objects affect 'x2a%n' more than once 20d60a0220Speter klauslertype(t2) :: x2a 21d60a0220Speter klausler!ERROR: Distinct default component initializations of equivalenced objects affect 'x3%k' more than once 22d60a0220Speter klauslertype(t3), save :: x3 23d60a0220Speter klausler!ERROR: Explicit initializations of equivalenced objects affect 'ja(2_8)' more than once 24d60a0220Speter klausler!ERROR: Explicit initializations of equivalenced objects affect 'ka(1_8)' more than once 25d60a0220Speter klauslerinteger :: ja(2), ka(2) 26d60a0220Speter klauslerdata ja/345, 456/ 27d60a0220Speter klauslerdata ka/456, 567/ 28d60a0220Speter klauslerequivalence(x1a, x2a, x3) 29d60a0220Speter klausler! Same value: no error 30d60a0220Speter klauslertype(t1) :: x1b 31d60a0220Speter klauslertype(t2) :: x2b 32d60a0220Speter klauslerequivalence(x1b, x2b) 33d60a0220Speter klauslerequivalence(ja(2),ka(1)) 34d60a0220Speter klauslerend 35