RosettaCodeData/Task/Flow-control-structures/Fortran/flow-control-structures-3.f

      SUBROUTINE FRED(X,*,*)     !With placeholders for unusual parameters.
        ...
        RETURN          !Normal return from FRED.
        ...
        RETURN 2        !Return to the second label.
      END