[Bug fortran/69268] New: Sourced allocation calls function twice

[townsend at astro dot wisc.edu]

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

            Bug ID: 69268
           Summary: Sourced allocation calls function twice
           Product: gcc
           Version: 5.3.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: townsend at astro dot wisc.edu
  Target Milestone: ---

Created attachment 37338
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=37338&action=edit
Source code of program reproducing the problem

The attached program demonstrates that, in a sourced allocation based on a
function call, the function is called twice. Example output:

 called:           1
 called:           2

I believe this may gave been fixed in 6.0, but 5.3 seems to still have the
problem.