1! { dg-do run } 2! PR 88658 - make sure the types for min1, max1, amax0 and amin0 are 3! correct when simplified 4 5program main 6 real :: RVCOMP 7 character (len=12) :: line 8 integer :: n 9 10 RVCOMP = MAX1(2.3, 3.1, 4.4) / 5 11 if (rvcomp /= 0.) stop 1 12 rvcomp = min1(2.3, 3.1, 5.1) / 5 13 if (rvcomp /= 0.) stop 2 14 write (unit=line, fmt='(F12.5)') amax0(42, 21, 7) 15 if (line /= ' 42.00000') stop 3 16 write (unit=line, fmt='(F12.5)') amin0(42,21,7) 17 if (line /= ' 7.00000') stop 4 18end program main 19