<!-- hamlet
<!-- copytar
examples/                                                                                              755    1107     770            0  5477466150   5723                                                                                                                                                                                                                                                                                                                                                                      examples/types.f                                                                                       644    1107     770          720  5477466150   7302                                                                                                                                                                                                                                                                                                                                                                      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
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                