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'
