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

Thomas Koenig <tkoenig at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         Resolution|---                         |FIXED
             Status|ASSIGNED                    |RESOLVED

--- Comment #3 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
Fixed on master with

https://gcc.gnu.org/g:4644e8f15f835a9934a8d289ee08ba4cb46cbfac

commit r11-1297-g4644e8f15f835a9934a8d289ee08ba4cb46cbfac
Author: Thomas Koenig <tkoe...@gcc.gnu.org>
Date:   Sun Jun 14 14:39:03 2020 +0200

    Always use locations from get and put arguments for error messages.

    A simple and obvios patch - the error location was taken
    from a variable that was not initialized for optional
    variables.

    gcc/fortran/ChangeLog:

            * check.c (gfc_check_random_seed): Always use locations
            from get and put arguments for error messages.

    gcc/testsuite/ChangeLog:

            * gfortran.dg/random_seed_4.f90: New test.

Closing. Thanks for the bug report!

Reply via email to