2 ! Check the fix for PR33568 in which the optional KIND
3 ! argument for ANINT, with an array for the first argument
6 ! Contributed by Ignacio Fernández Galván <jellby@yahoo.com>
10 INTEGER, PARAMETER :: DP=8
11 REAL(DP), DIMENSION(1:3) :: A = (/1.76,2.32,7.66/), B
15 if (any (A .ne. B)) call abort ()