Skip to content

Redefining intrinsic leads to error: has an explicit interface before #137

Description

@clementval

Following code fails with the current F_Front

module mod1

implicit none

private :: gamma
real, private :: cons1, ds, cs

contains

subroutine sub1()
  cons1=gamma(1.+ds)*cs
end subroutine

real function gamma(X)
  real :: X
end function

end module
"test.f90:mod1", line 12: gamma has an explicit interface before

Metadata

Metadata

Assignees

No one assigned

    Type

    No type

    Projects

    No projects

    Milestone

    No milestone

    Relationships

    None yet

    Development

    No branches or pull requests

    Issue actions