program abs
                REAL(4) :: TEST
                REAL(4) :: TESTED

                TEST = -1
                PRINT '(F8.3)',TEST
                TESTED = ABS(TEST)
                PRINT '(F8.3)',TESTED
        end