Node: CurrentRoutineName, Next: CWord, 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