http://gcc.gnu.org/bugzilla/show_bug.cgi?id=49431
Summary: is it illegal?
Product: gcc
Version: 4.4.7
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
AssignedTo: [email protected]
ReportedBy: [email protected]
program main
implicit none
real distance
real, external :: gcdist
distance = gcdist ()
end program main
! Computes the shortest (undirected) angular distance between the points
! on the globe (LAT1,LON1) and (LAT2,LON2).
real function GCDIST()
implicit none
real D2R = 0.017453292519943
gcdist = D2R
end
