RosettaCodeData/Task/Numeric-error-propagation/Fortran/numeric-error-propagation-3.f

      TYPE DATUM
       REAL VALUE
       REAL SD
      END TYPE DATUM
      TYPE POINT
       TYPE(DATUM) X
       TYPE(DATUM) Y
      END TYPE POINT
      TYPE(POINT) P1,P2