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

Sergey Fedorov <vital.had at gmail dot com> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |vital.had at gmail dot com

--- Comment #14 from Sergey Fedorov <vital.had at gmail dot com> ---
(In reply to Dominique d'Humieres from comment #12)
> *** Bug 63413 has been marked as a duplicate of this bug. ***

I am not sure this is a duplicate, but at least that bug is still unfixed.

```
/opt/local/bin/gfortran-mp-14 -c   -fimplicit-none -Os   -I./
-I./built/powerpc-macosx-gfortran
-I/opt/local/var/macports/build/gild7c3fad/work/gildas-src-jul25b/integ/powerpc-macosx-gfortran/include
 -J./built/powerpc-macosx-gfortran -pipe -fno-backslash -fno-range-check
-fno-second-underscore -fPIC -fopenmp -O
built/powerpc-macosx-gfortran/gbl_format.f90 -o
built/powerpc-macosx-gfortran/gbl_format.o
/opt/local/bin/cpp-mp-14  -P -traditional -C -DDARWIN="darwin"  -ffreestanding
-DGFORTRAN="gfortran" -DGFORTRAN_VERSION="1420" -DCFITSIO="yes"
-DATM2009="atm2009" -DPNG="yes" -DGAG_USE_GTK -DGAG_USE_OPENMP -DGAG_USE_POSIX
-DGAG_USE_PYTHON -DGAG_USE_UNDERSCORE   -I/opt/local/include -Uvector 
image_def.f90 > built/powerpc-macosx-gfortran/image_def.f90
image_def.f90:289: error: detected recursion whilst expanding macro "pixel"
  289 |      real(kind=8) :: ref1 = 1.d0           ! 17  Reference pixel
image_def.f90:290: error: detected recursion whilst expanding macro "pixel"
  290 |      real(kind=8) :: val1 = 1.d0           ! 19  Value at reference
pixel
image_def.f90:291: error: detected recursion whilst expanding macro "pixel"
  291 |      real(kind=8) :: inc1 = 1.d0           ! 21  Increment per pixel
image_def.f90:426: error: detected recursion whilst expanding macro "pixel"
  426 | ! in file:     integer(kind=8) :: mini = 0           ! Rank 1 pixel of
minimum
image_def.f90:427: error: detected recursion whilst expanding macro "pixel"
  427 | ! in file:     integer(kind=8) :: maxi = 0           ! Rank 1 pixel of
maximum
make[2]: *** [built/powerpc-macosx-gfortran/image_def.f90] Error 1
```

(And I had to add `-Uvector` due to the same issue with `vector`.)

Reply via email to