1! { dg-do run } 2! PR 34817 - the wrong library function was called, 3! leading to garbage in the return value 4program main 5 real, dimension(2,2) :: a 6 logical(kind=4), dimension(2) :: b 7 integer(kind=4), dimension(2) :: i 8 equivalence (b,i) 9 data a /1.0, 2.0, -0.1, -0.2 / 10 11 i = 16843009 ! Initialize i to put junk into b 12 b = any(a>0.5,dim=1) 13 if (b(2) .or. .not. b(1)) call abort 14 15 i = 16843009 ! Initialize i to put junk into b 16 b = all(a>0.5,dim=1) 17 if (b(2) .or. .not. b(1)) call abort 18end program main 19