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