[Bug fortran/65025] Internal compiler error with preprocessor in gfortran

[dominiq at lps dot ens.fr]

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

--- Comment #3 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
> Maybe this time the code will get there?

The code was there in this PR, but not in 65026.

#if plet_=='s'
#define ckind__ C_FLOAT
#elif plet_=='q'
#define ckind__ C_LONG_DOUBLE  
#elif plet_=='d'
#define  ckind__ C_DOUBLE
#endif
end

is enough to reproduce the ICE.