! File: abs_test1.f90
! Public domain 2005 James Van Buskirk
! gfortran fails for two reasons:
! 1) No warning for nonstandard intrinsic name cdabs
! 2) Prints out NaN instead of 5.00000000000000
! abs_test.f90 is more difficult

program abs_test1
   implicit none
   intrinsic cdabs

! write(*,*) cdabs((4,3)) ! Causes ICE, as well
   call sub(cdabs)
end program abs_test1

subroutine sub(f)
   implicit none
   interface
      elemental function f(x)
         complex(kind(1.0d0)), intent(in) :: x
         real(kind(x)) :: f
      end function f
   end interface
   complex(kind(1.0d0)) x

   x = (4,3)
   write(*,*) f(x)
end subroutine sub