[patch,libgfortran] Fix binary128 ERFC_SCALED

[Andreas Schwab]

../../../libgfortran/intrinsics/erfc_scaled.c:59:1: error: unknown type name 'GFC_REAL_16'
 extern GFC_REAL_16 erfc_scaled_r16 (GFC_REAL_16);
 ^
../../../libgfortran/intrinsics/erfc_scaled.c:59:1: warning: parameter names (without types) in function declaration [enabled by default]
../../../libgfortran/intrinsics/erfc_scaled.c:63:1: error: unknown type name 'GFC_REAL_16'
 GFC_REAL_16
 ^
../../../libgfortran/intrinsics/erfc_scaled.c:64:18: error: unknown type name 'GFC_REAL_16'
 erfc_scaled_r16 (GFC_REAL_16 x)
                  ^
../../../libgfortran/intrinsics/erfc_scaled.c:66:3: error: unsupported non-standard suffix on floating constant
   if (x < -106.566990228185312813205074546585730Q)
   ^
make[3]: *** [erfc_scaled.lo] Error 1

Andreas.

-- 
Andreas Schwab, SUSE Labs, schwab@suse.de
GPG Key fingerprint = 0196 BAD8 1CE9 1970 F4BE  1748 E4D4 88E3 0EEA B9D7
"And now for something completely different."