https://gcc.gnu.org/bugzilla/show_bug.cgi?id=103795
Jerry DeLisle <jvdelisle at gcc dot gnu.org> changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|NEW |RESOLVED
CC| |jvdelisle at gcc dot gnu.org
Resolution|--- |FIXED
--- Comment #4 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
This is fixed on trunk sometime after first reported.
$ gfc z1.f90 -fcoarray=single
z1.f90:3:22:
3 | print *, a[1, stat=[1]]
| 1
Error: STAT argument at (1) must be scalar
$ gfc z2.f90 -fcoarray=single
z2.f90:3:22:
3 | print *, a[1, stat=1]
| 1
Error: STAT's expression at (1) must be a variable
$ gfc z3.f90 -fcoarray=single
z3.f90:4:22:
4 | print *, a[1, stat=stat]
| 1
Error: STAT argument at (1) must be of INTEGER type, found REAL
$ gfc z4.f90 -fcoarray=single
z4.f90:4:30:
4 | print *, a[1, stat=stat[1]]
| 1
Error: Expression in STAT= at (1) must not be coindexed
