P2FPAF: PROC OPTIONS(MAIN);
  DCL P2FFAF ENTRY OPTIONS(FORTRAN);
  DCL X(3)    FLOAT DEC(6);
  X(1) = 0E0;
  X(2) = 1E0;
  X(3) = 2E0;
  CALL P2FFAF(X);
  PUT SKIP
      LIST('UPDATED VALUES IN PL/I:', X);
END P2FPAF;
 

SUBROUTINE P2FFAF ( ARG )
REAL*4 ARG(3)
PRINT *, 'FORTRAN ARG VALUES:', ARG
DO J = 1, 3
  ARG(J) = ARG(J) + 1.0
ENDDO
END