program testover
! Filename: test40.f90
!
!
!  PathScale EKO 64-bit compiler with options:
!  pathf90 -O0 -g -msse2 -TENV:simd_omask=OFF test40.f90
! (as documented in: man eko )
!
! Then for either compiler use gdb ./a.out
! [...]
! (gdb) r
!
 real :: a
 a=huge(a)
 call compute(a)
end program testover
 subroutine compute(a)
  real :: a,b
  b=a**2
  print*, "b=",b
 end subroutine compute