| ! Check we do the right thing with extreme values. | |
| ! From PR12704 | |
| program intrinsic_mmloc_3 | |
| integer, dimension(2) :: d | |
| integer, dimension(2,2) :: a | |
| d = -huge (d) | |
| if (maxloc (d, 1) .ne. 1) call abort() | |
| a = huge (a) | |
| d = minloc (a) | |
| if (any (d .ne. 1)) call abort() | |
| end program |