The attached test code using a generic interface block produces wrong output
when compiled with gfortran, and works fine with pgf90. Tested with gcc trunk
and gcc-4.2.0
>>
[EMAIL PROTECTED] test4]$ ~/Desktop/gcc-trunk/bin/gfortran --version
GNU Fortran 95 (GCC) 4.3.0 20070220 (experimental)
Copyright (C) 2006 Free Software Foundation, Inc.
GNU Fortran comes with NO WARRANTY, to the extent permitted by law.
You may redistribute copies of GNU Fortran
under the terms of the GNU General Public License.
For more information about these matters, see the file named COPYING
[EMAIL PROTECTED] test4]$ ~/Desktop/gcc-trunk/bin/gfortran -static
test-interface.f90
-o test1
[EMAIL PROTECTED] test4]$ ./test1
180.0000 1.5000001E-06 1.6066065E+34
180.0000 1.5000001E-06 4.5916347E-41
180.0000 1.5000001E-06 1.6066065E+34
180.0000 1.5000001E-06 4.5916347E-41
180.0000 1.5000001E-06 0.000000
180.0000 1.5000001E-06 0.000000
180.0000 1.5000001E-06 5.8780253E-39
180.0000 1.5000001E-06 0.000000
180.0000 1.5000001E-06 1.6066927E+34
180.0000 1.5000001E-06 4.5916347E-41
180.0000 1.5000001E-06 0.5104298
[EMAIL PROTECTED] test4]$ pgf90 test-interface.f90 -o test1
[EMAIL PROTECTED] test4]$ ./test1
180.0000 1.5000001E-06 0.5104298
180.0000 1.5000001E-06 0.5104298
180.0000 1.5000001E-06 0.5104298
180.0000 1.5000001E-06 0.5104298
180.0000 1.5000001E-06 0.5104298
180.0000 1.5000001E-06 0.5104298
180.0000 1.5000001E-06 0.5104298
180.0000 1.5000001E-06 0.5104298
180.0000 1.5000001E-06 0.5104298
180.0000 1.5000001E-06 0.5104298
180.0000 1.5000001E-06 0.5104298
180.0000 1.5000001E-06 0.5104298
180.0000 1.5000001E-06 0.5104298
180.0000 1.5000001E-06 0.5104298
180.0000 1.5000001E-06 0.5104298
FORTRAN STOP
<<
--
Summary: gfortran produces wrong result with code using generic
interface block
Product: gcc
Version: 4.3.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: deji_aking at yahoo dot ca
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=30902
