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

    Fields

    No fields configured for issues without a type.

    Projects

    No projects

    Milestone

    No milestone

    Relationships

    None yet

    Development

    No branches or pull requests

    Issue actions