Platform

x64, Win32

Purpose

To alter a character argument so that all letters become upper case.

Syntax

SUBROUTINE UPCASE@(A)
CHARACTER (LEN=*) A

Example

PROGRAM UCASE
 CHARACTER (LEN=10)::FRED
 FRED = 'ABcd'
 CALL UPCASE@(FRED)
 IF(FRED /= 'ABCD') PRINT *,'UPCASE@ routine has failed'
END