[flang] Incorrect execution result of writing and reading namelist-group-name as described in the NAMELIST statement

[ohno-fj]

Version of flang-new : 17.0.0(5a50ba03e9adb1614189530f8a5ef06d90dfd670)

The execution result of writing and reading namelist-group-name as described in the NAMELIST statement is incorrect.
The Write statement on line 26 in subroutine yy does not seem to work correctly.

The following are the test program, results of Flang-new, GFortran and ifort compilation and execution.

snggf688_5.f90:

program main
  call s1
  print *,'pass'
end program main

module m1
  namelist /a/ i
end module m1

subroutine s1
  namelist /a/i
  call xx
  call yy
  write(6,*) "before read : i = ", i
  rewind 1
  read(1,a)
  write(6,*) "after  read : i = ", i
  if (i/=2)write(6,*) "NG i = ", i
contains
  subroutine xx
    use m1
    i=2
  end subroutine xx
  subroutine yy
    use m1
    write(1,a)
    i=3
  end subroutine yy
end subroutine s1

$ flang-new -flang-experimental-exec snggf688_3.f90; ./a.out
 before read : i =  3
 after  read : i =  0
 NG i =  0
 pass
$
$ cat fort.1
&A I= 0/
$

$ gfortran snggf688_3.f90; ./a.out
 before read : i =            0
 after  read : i =            2
 pass
$
$ cat fort.1
&A
 I=2          ,
 /
$

$ ifort snggf688_3.f90; ./a.out
 before read : i =            0
 after  read : i =            2
 pass
$
$ cat fort.1
 &A
 I       =           2
 /
$

[klausler]

https://reviews.llvm.org/D150307

[llvmbot]

@llvm/issue-subscribers-flang-frontend