BUG: FOR1252 Error USE of Module in Internal Module Procedure

MORE INFORMATION

Sample Code to Illustrate Problem

! Compile options needed: /c

      Module VALUES
        Type VAL ; Real :: x ; End Type VAL
      End Module VALUES

      Module COMPUT
! Uncomment the following line for work-around
!      USE VALUES
      Interface Operator (+)
        Module Procedure VAL_PLUS
      End Interface
      Contains
        Type(VAL) Function VAL_PLUS (A,B) Result(C)
! Comment the following line for work-around
          USE VALUES
          Implicit None
          Type(VAL), Intent(In) :: A, B
          C%x = A%x + B%x
        End Function VAL_PLUS
      End Module COMPUT