More ifc 8 woes

From: Richard Edgar (rge21_at_astro.su.se)
Date: 01/26/04 

Date: Mon, 26 Jan 2004 16:15:14 +0100

And I'm back....

A temporary work around for the file problem I mentioned about half an
hour ago (although I'd still like to get it fixed properly, since
excessing makefile magic is a Bad Thing). Now, ifort is throwing another
wobbly wrt a function passed as an argument.

I use explicit interfaces throughout. The relevant INTERFACE block is

INTERFACE
   PURE FUNCTION GetReqAbsErrors( ys, deltays, gradients, x, h ) RESULT(
reqdeltays )
          USE Kinds
          IMPLICIT NONE
          REAL (KIND=QP), INTENT(IN) :: ys(:)
          REAL (KIND=QP), INTENT(IN) :: deltays(SIZE(ys))
          REAL (KIND=QP), INTENT(IN) :: gradients(SIZE(ys))
          REAL (KIND=QP), INTENT(IN) :: x
          REAL (KIND=QP), INTENT(IN) :: h
          REAL (KIND=QP) :: reqdeltays(SIZE(ys))
    END FUNCTION GetReqAbsErrors
END INTERFACE

The supplied function is

   PURE FUNCTION OrtErrors( vals, deltavals, gradients, t, deltat )
RESULT( errs )
     ! Supply the error values
     REAL (KIND=QP), INTENT(IN) :: vals(:)
     REAL (KIND=QP), INTENT(IN), DIMENSION(SIZE(vals)) :: deltavals,
gradients
     REAL (KIND=QP), INTENT(IN) :: t, deltat
     REAL (KIND=QP) :: errs(SIZE(vals))

     [...]
   END FUNCTION OrtErrors

ifort complains about arguments 2 and 3, saying

fortcom: Error: mainloop.f90, line 73: The characteristics of dummy
argument 3 of the associated actual procedure differ from the
characteristics of dummy argument 3 of the dummy procedure. (12.2)

(the parent call is on line 73).

ifc6, 7 and the Sun compilers were all quite happy with this. Has ifort
discovered a subtle bug in my code?

TIA,

Richard

Relevant Pages

  • Re: Are procedure dummy arguments ignored in generic procedure resolution?
    ... > procedures via an interface block or an external statement, ... > a value of that implicit type or a subroutine if the dummy argument ... > has no declaration in the interface block. ... block or an external statement. ...
    (comp.lang.fortran)
  • multiple dummy interfaces?
    ... I'm moving from an older redhat to FC3 and I had multiple IP addresses ... /sbin/ifconfig dummy0 www.domain0.com up ... I was able to load one dummy interface ...
    (Fedora)
  • Re: understanding hacmp5 and IP aliasing
    ... >>I now want to setup a cluster but with using IP aliases.The manual ... >>I need to have boot and service networks on seperate subnets. ... > standby address = dummy address ... > interface at all times and the real service addresses are ...
    (comp.unix.aix)
  • Re: understanding hacmp5 and IP aliasing
    ... Your current standby addresses are in a different subnet but you ... standby address = dummy address ... interface at all times and the real service addresses are ...
    (comp.unix.aix)