Re: [patch, fortran] Emit error for recursive I/O

[Thomas Koenig]

Am 06.01.26 um 22:10 schrieb Steve Kargl:

There's a regressio on FreeBSD.  The new testcase
needs

diff --git a/gcc/testsuite/gfortran.dg/pr119136.f90 
b/gcc/testsuite/gfortran.dg/pr119136.f90
index e579083b9b6..206d4e3f90f 100644
--- a/gcc/testsuite/gfortran.dg/pr119136.f90
+++ b/gcc/testsuite/gfortran.dg/pr119136.f90
@@ -1,4 +1,5 @@
  ! { dg-do run }
+! { dg-options "-pthread" { target { x86_64-*-freebsd* } } }
  ! { dg-shouldfail "Recursive" }
    print *, foo_io()

Hi Steve,

that option should not be needed.  I thought I had fixed this, but
without access to a machine, that is difficult to debug.

I'll ask for a suitable system on the compile farm.

Best regards

        Thomas