<Example Program>

Program poppar_example
    Integer :: a(3) = [ Int(z'ff'),Int(z'e3'),Int(z'02') ]
    Print *,
Poppar(a)
End Program

Execution Results

  0 1 1