Searched refs:errmsg_variable (Results 1 – 2 of 2) sorted by relevance
8 character(len = 128) :: errmsg_variable variable14 Unlock(locks(2), ERRMSG = errmsg_variable)15 Unlock(locks(4), stat = stat_variable, ERRMSG = errmsg_variable)
17 errmsg_variable: critical (ERRMSG=errormessage)18 End critical errmsg_variable