[Bug fortran/62000] New: Program hangs on print *, func() statement.

[Bug fortran/62000] New: Program hangs on print *, func() statement.

[jannis at teunissen dot net]

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

            Bug ID: 62000
           Summary: Program hangs on print *, func() statement.
           Product: gcc
           Version: 4.9.1
            Status: UNCONFIRMED
          Severity: major
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: jannis at teunissen dot net

Code example:
---------------------------
program my_test
  use mpi
  implicit none

  integer :: ierr
  real    :: rr

  call MPI_init(ierr)
  call set_real(rr)
  print *, rr
  print *, get_real()
  call MPI_finalize(ierr)
contains
  real function get_real()
    print *, "FUNC"
    get_real = 1.0
  end function get_real
  subroutine set_real(arg)
    real, intent(out) :: arg
    print *, "SUB"
    arg = 1.0
  end subroutine set_real
end program my_test
---------------------------
Compilation: mpif90 (no flags)
Result:
$ ./a.out 
 SUB
   1.00000000
   ** program hangs indefinitely **

Same result with MPICH instead of OpenMPI (see below). Without MPI, the problem
goes away. If "print *, get_real()" is replaced by:

rr = get_real()
print *, rr

there is again no problem.


Open MPI: 1.6.5
GNU Fortran (Debian 4.9.1-1) 4.9.1
Linux debian 3.13-1-amd64 #1 SMP Debian 3.13.10-1 (2014-04-15) x86_64 GNU/Linux

[Bug fortran/62000] Program hangs on print *, func() statement.

[dominiq at lps dot ens.fr]

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

Dominique d'Humieres <dominiq at lps dot ens.fr> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |RESOLVED
         Resolution|---                         |DUPLICATE

--- Comment #1 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
You are using Mac OSX and an invalid recursive I/O, see pr30617.

*** This bug has been marked as a duplicate of bug 30617 ***

[Bug fortran/62000] Program hangs on print *, func() statement.

[dominiq at lps dot ens.fr]

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

--- Comment #2 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
> You are using Mac OSX and an invalid recursive I/O, see pr30617.

I did not look at the end of the report. So apparently recursive I/O hangs also
on Linux debian and MPI(?). Without the MPI stuff the code hangs on darwin, but
not on gcc version 4.6.3 20120306 (Red Hat 4.6.3-2).