[Bug fortran/127731] Wrong values from a pointer function result associated with a complex part designator

[ivan.pribec at gmail dot com via Gcc-bugs]

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

--- Comment #3 from Ivan Pribec <ivan.pribec at gmail dot com> ---
Reordering statements to use the assigned pointer variables doesn't help
either:

  r => g()
  print *, 'REAL r => g():   ', r      ! 2. 4. 6. (works)

  associate (a => r)
    print *, 'associate:       ', a    ! WRONG, prints 2. 3. 4.
  end associate

  call show('actual argument: ', r)    ! WRONG, prints 2. 3. 4.