[Info-vax] Fortran Exit Codes

[Arne Vajhøj]

On 2/25/2024 7:37 PM, Arne Vajhøj wrote:
> 4) Reality is pretty simple:
> 
> $ type Z1.for
>        program z1
>        end
> $ for Z1
> $ link Z1
> $ run Z1
> $ sh symb $status
>    $STATUS == "%X00000001"
> $ type Z2.for
>        program z2
>        stop
>        end
> $ for Z2
> $ link Z2
> $ run Z2
> $ sh symb $status
>    $STATUS == "%X00000001"
> $ type Z3.for
>        program z3
>        stop 44
>        end
> $ for Z3
> $ link Z3
> $ run Z3
> 44
> $ sh symb $status
>    $STATUS == "%X00000001"
> $ type Z4.for
>        program z4
>        stop 'Bingo'
>        end
> $ for Z4
> $ link Z4
> $ run Z4
> Bingo
> $ sh symb $status
>    $STATUS == "%X00000001"
> $ type Z5.for
>        program z5
>        call sys$exit(%val(44))
>        end
> $ for Z5
> $ link Z5
> $ run Z5
> %SYSTEM-F-ABORT, abort
> $ sh symb $status
>    $STATUS == "%X0000002C"

One more:

$ type Z6.for
       program z6
       call lib$stop(%val(44))
       end
$ for Z6
$ link Z6
$ set noon
$ run Z6
%SYSTEM-F-ABORT, abort
%TRACE-F-TRACEBACK, symbolic stack dump follows
   image    module    routine             line      rel PC           abs PC
  z6  Z6  Z6                                 2 0000000000000048 
0000000000020048
                                             0 FFFFFFFF80340964 
FFFFFFFF80340964
%TRACE-I-END, end of TRACE stack dump
$ sh symb $status
   $STATUS == "%X1000002C"

Arne