http://gcc.gnu.org/bugzilla/show_bug.cgi?id=49431
Jerry DeLisle <jvdelisle at gcc dot gnu.org> changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |jvdelisle at gcc dot
| |gnu.org
--- Comment #1 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> 2011-06-16
05:18:35 UTC ---
Using a double colon allows it to compile:
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 ! <--- here
gcdist = D2R
end
