Fortran version of Delphi's SysUtils.f90

SysUtils.f90

!***|****1****|****2****|****3****|****4****|****5****|****6****|****7**
    MODULE SysUtils

    IMPLICIT NONE

    CONTAINS

!***|****1****|****2****|****3****|****4****|****5****|****6****|****7**
    FUNCTION UpperCase (String)

    USE System
    IMPLICIT NONE

    CHARACTER(LEN=:), ALLOCATABLE :: UpperCase

    CHARACTER(LEN=*), INTENT(IN) :: String

    INTEGER(KIND=I8) :: I
    INTEGER(KIND=I8) :: L

    L = LEN(String)
    UpperCase = String
    DO I = 1, L
        SELECT CASE (UpperCase(I:I))
        CASE ('a':'z')
            UpperCase(I:I) = ACHAR(IACHAR(UpperCase(I:I)) - 32)
        END SELECT
    END DO

    END FUNCTION UpperCase

    END MODULE SysUtils
!***|****1****|****2****|****3****|****4****|****5****|****6****|****7**