This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/49431] New: is it illegal?
- From: "linuxl4 at sohu dot com" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: Thu, 16 Jun 2011 02:53:06 +0000
- Subject: [Bug fortran/49431] New: is it illegal?
- Auto-submitted: auto-generated
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: unassigned@gcc.gnu.org
ReportedBy: linuxl4@sohu.com
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