Function chcase (s) Result (sb)
Character (Len=:), Allocatable :: b
Character (Len=*), Intent (In) :: a

Create string s, upper case of string a
...
b = Trim (s)

End Function chcase

s = chcase (s)

Character (Len=*), Intent (InOut) :: a