C Demonstrates what happens when type compatibility is violated
C
C Created: Joe Zachary, October 12, 1992
C Modified:

C The main program calls the "ADD" function to add two REAL numbers.

      PROGRAM TYPES
      IMPLICIT NONE
      REAL ADD
      PRINT *, ADD(5., 7.)
      STOP
      END


C This function adds two REAL numbers and returns the result.

      REAL FUNCTION ADD (X, Y)
      IMPLICIT NONE
      REAL X, Y
      ADD = X+Y
      RETURN
      END