This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
bug fc017
- From: Walt Brainerd <walt at fortran dot com>
- To: Gfortran <fortran at gcc dot gnu dot org>
- Date: Wed, 06 Apr 2005 15:37:54 -0700
- Subject: bug fc017
--
Walt Brainerd +1-877-355-6640 (voice & fax)
The Fortran Company +1-520-760-1397 (outside USA)
6025 N. Wilmot Road walt@fortran.com
Tucson, AZ 85750 USA http://www.fortran.com
program fc017
! Submitted by Walt Brainerd, The Fortran Company
! GNU Fortran 95 (GCC 4.1.0 20050322 (experimental))
! Windows XP
! Note that maxloc returns an array of shape [1]
! In file fc017.f95:15
! print*,any(maxloc((/2,6,4,6/)) /= 2)
! 1
! Error: 'mask' argument of 'any' intrinsic at (1) must be a logical array
print*,any(maxloc((/2,6,4,6/)) /= 2)
end program fc017