Node:CurrentRoutineName, Next:Date, Previous:CStringCopyString, Up:Reference

### CurrentRoutineName

#### Synopsis

    function CurrentRoutineName: String;

#### Description

`CurrentRoutineName` returns the name of the current routine from where it's called.

#### Conforming to

`CurrentRoutineName` is a GNU Pascal extension.

#### Example

    program CurrentRoutineNameDemo;

    procedure FooBar;
    begin
      WriteLn (CurrentRoutineName)  { `FooBar' }
    end;

    begin
      WriteLn (CurrentRoutineName);  { `main program' }
      FooBar
    end.

#### See also