[Bug fortran/40461] New: Interface mismatch in dummy procedure

[michael dot a dot richmond at nasa dot gov]

I downloaded
http://users.physik.fu-berlin.de/~tburnus/gcc-trunk/gcc-trunk-x86_64.tar.gz and
attempted to compile the following module:

MODULE Nonlin_Conf_Regions
CONTAINS
SUBROUTINE halprn(deriv)
INTERFACE
  SUBROUTINE deriv(wt)
    REAL, INTENT(IN)     :: wt
  END SUBROUTINE deriv
END INTERFACE
END SUBROUTINE halprn
END MODULE Nonlin_Conf_Regions

PROGRAM Test_AS290
USE Nonlin_Conf_Regions
INTERFACE
  SUBROUTINE Logistic4(wt)
    REAL, INTENT(OUT)  :: wt
  END SUBROUTINE Logistic4
END INTERFACE
CALL halprn(Logistic4)
END PROGRAM Test_AS290

I got the message:

u.f90:19.12:

CALL halprn(Logistic4)
            1
Error: Interface mismatch in dummy procedure 'deriv' at (1): INTENT mismatch in
argument 'wt'

This is presumably connected with PR 36947/40039 written by Janus Weil. I don't
know whether the error message is valid.


-- 
           Summary: Interface mismatch in dummy procedure
           Product: gcc
           Version: 4.5.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: michael dot a dot richmond at nasa dot gov


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40461