[Bug fortran/30902] New: gfortran produces wrong result with code using generic interface block

[deji_aking at yahoo dot ca]

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

>>
[deji@agape 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

[deji@agape test4]$ ~/Desktop/gcc-trunk/bin/gfortran -static test-interface.f90
-o test1
[deji@agape 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    
[deji@agape test4]$ pgf90 test-interface.f90 -o test1
[deji@agape 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