![](/images/backgrounds/286549/hp-sunsoft-pascal-4-0-users-manual-549395221x1.png)
8
The Pascal main program, | program VarRecmain; |
VarRecmain.p |
|
| type |
| vr = |
| record |
| case tag: char of |
| 'a': ( ch1, ch2: char ); |
| 'b': ( flag: boolean ); |
| 'K': ( ALIGN: integer ) |
| end; |
| var |
| Rec: vr; |
| procedure varrec(var d: vr); external fortran; |
| begin |
| Rec.tag := 'a'; |
| Rec.ch1 := 'a'; |
| Rec.ch2 := 'b'; |
| varrec(Rec); |
| writeln(Rec.ch2) |
| end. { VarRecmain } |
|
|
The commands to compile and execute VarRec.f and VarRecmain.p without
hostname% f77
varrec:
hostname% pc VarRec.o VarRecmain.p
b
Value Parameters
With external fortran on the procedure statement, Pascal passes value parameters as FORTRAN expects them.
The | 197 |