greater_than_real Module Procedure

module procedure greater_than_real elemental module function greater_than_real(actual, expected_floor) result(test_diagnosis)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	actual
real,	intent(in)			::	expected_floor

Return Value type(test_diagnosis_t)