[Bug fortran/62087] New: A Piece of code compiling with ifort but giving error by gfortran 4.8

[Bug fortran/62087] New: A Piece of code compiling with ifort but giving error by gfortran 4.8

[kushwaha.sumit8 at gmail dot com]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=62087

            Bug ID: 62087
           Summary: A Piece of code compiling with ifort but giving error
                    by gfortran 4.8
           Product: gcc
           Version: 4.8.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: kushwaha.sumit8 at gmail dot com

A have following Piece of code which is a part of forecast model


subroutine ESMF_GridCompSetEntryPoint (comp, subroutineType, subroutineName,
phase, rc)

      type(ESMF_GridComp) :: comp
      character(*), intent(in) :: subroutineType
      interface
            subroutine subroutineName (comp, importState, exportState, clock,
rc)

            type(ESMF_GridComp), INTENT(inout) :: comp
            type(ESMF_State) :: importState, exportState
            type(ESMF_Clock) :: clock
            integer, intent(out) :: rc
            end subroutine
      end interface
      integer, intent(in) :: phase
      integer, intent(out) :: rc
    end subroutine


TYPE(ESMF_GridComp), INTENT(inout)  :: gcGFS
INTEGER,             INTENT(out)    :: rc1
CALL ESMF_GridCompSetEntryPoint (gcGFS, ESMF_SETINIT,  Initialize,      &
                                  ESMF_SINGLEPHASE, rc1)

SUBROUTINE Initialize(gcGFS, impGFS, expGFS, clock, rc)
 TYPE(ESMF_GridComp), INTENT(inout) :: gcGFS
 TYPE(ESMF_State),    INTENT(inout) :: impGFS
 TYPE(ESMF_State),    INTENT(inout) :: expGFS
 TYPE(ESMF_Clock),    INTENT(inout) :: clock

 INTEGER, INTENT(out)               :: rc

...
...
...
END SUBROUTINE Initializ

when compiling with using mpif90 -f90=/garuda/GARUDA/gcc48/bin/gfortran
I am getting following error

 CALL ESMF_GridCompSetEntryPoint (gcGFS, ESMF_SETINIT,  Initialize,      &
                                                        1
Error: Interface mismatch in dummy procedure 'subroutinename' at (1): INTENT
mismatch in argument 'comp'

[Bug fortran/62087] A Piece of code compiling with ifort but giving error by gfortran 4.8

[kargl at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=62087

kargl at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |kargl at gcc dot gnu.org

--- Comment #1 from kargl at gcc dot gnu.org ---
There insufficient and clear code to reproduce the issue.
Please attach a complete self-contained example.

[Bug fortran/62087] A Piece of code compiling with ifort but giving error by gfortran 4.8

[dominiq at lps dot ens.fr]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=62087

Dominique d'Humieres <dominiq at lps dot ens.fr> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |WAITING
   Last reconfirmed|                            |2014-08-12
     Ever confirmed|0                           |1

--- Comment #2 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
> There insufficient and clear code to reproduce the issue.
> Please attach a complete self-contained example.

I was considering the same question.

[Bug fortran/62087] A Piece of code compiling with ifort but giving error by gfortran 4.8

[dominiq at lps dot ens.fr]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=62087

Dominique d'Humieres <dominiq at lps dot ens.fr> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|WAITING                     |RESOLVED
         Resolution|---                         |INVALID

--- Comment #3 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
> > There insufficient and clear code to reproduce the issue.
> > Please attach a complete self-contained example.
>
> I was considering the same question.

The question was asked more than three months ago without feedback. Closing as
INVALID.