Bad start on complex tests

C:\gfortran\james\intrinsics\func1>type abs.f90
program abstest
   complex(10) c10

   c10 = (  1.7951958020513104220_10,  2.6457513110645905904_10 )
   write(*,*) 'Alive to here'
   write(*,*) abs(c10)
   write(*,*) 'Survived the ordeal'
end program abstest

C:\gfortran\james\intrinsics\func1>gfortran abs.f90 -oabs

C:\gfortran\james\intrinsics\func1>abs
 Alive to here

C:\gfortran\james\intrinsics\func1>

-- 
write(*,*) transfer((/17.392111325966148d0,6.5794487871554595D-85, &
6.0134700243160014d-154/),(/'x'/)); end