ICE (array operations)

[Toby White]

parabrisas% cat atmfuncs2.f

      subroutine all_phi(nphi)
      integer, intent(out):: nphi

      integer maxlm
      double precision  rmod

      integer, parameter :: maxphi=100

      integer :: ilm(maxphi)
      double precision :: rmax(maxphi)
      logical :: within(maxphi)

      within(1:nphi) = ( rmax(1:nphi) > rmod )
      maxlm = maxval( ilm(1:nphi), mask=within(1:nphi) )

      end subroutine all_phi

parabrisas% gfortran -xf95 atmfuncs2.f                  3:32PM
atmfuncs2.f: In function `all_phi':

atmfuncs2.f:15: internal compiler error: Segmentation fault
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.


-- 
Dr. Toby White, Dept. of Earth Sciences, Downing Street, Cambridge CB2 3EQ. UK
Email: <tow21@cam.ac.uk>
Tel: +44 1223 333409
Fax: +44 1223 333450