[Bug fortran/115788] [F2018] Implement OUT_OF_RANGE

[anlauf at gcc dot gnu.org via Gcc-bugs]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=115788

--- Comment #1 from anlauf at gcc dot gnu.org ---
Regarding the optional ROUND argument there is interpretation F23/004, see:

https://j3-fortran.org/doc/year/25/25-100.txt

The program:

    Program test
        Call s(1.5,2.5)
    Contains
        Subroutine s(x,y,r)
            Logical,Optional :: r
            Print *,out_of_range(x,y,r) ! Valid?
        End Subroutine
    End Program

should be treated as invalid, which is clarified by the edit:

[422] 16.9.157 OUT_OF_RANGE, Arguments paragraph, ROUND argument,
      change "shall be present only" to "shall appear only".