[J3] Ambiguous?

Van Snyder Van.Snyder at jpl.nasa.gov
Mon Aug 6 16:20:53 EDT 2018


According to 12.4.3.4.5p3, third bullet in the list, in the 2008
standard, I believe the interface in the following module should not be
ambiguous.  But none of my processors accept it.  Is it standard
conforming, or have I not understood 12.4.3.4.5p3?

module Ambiguous_m

  implicit NONE
  private

  public :: Ambiguous

  interface Ambiguous
    module procedure Ambiguous_A, Ambiguous_P
  end interface Ambiguous

contains

  subroutine Ambiguous_A ( This )
    class(*), intent(in), allocatable, target :: This(:)
  end subroutine Ambiguous_A

  subroutine Ambiguous_P ( This )
    class(*), intent(in), pointer :: This(:)
  end subroutine Ambiguous_P

end module Ambiguous_m

I also tried it with REAL instead of CLASS(*) arguments and got the same
complaints.




More information about the J3 mailing list