Message ID | BANLkTink+m-RTqUNrs55aHMEoJE22sk3RQ@mail.gmail.com |
---|---|
State | New |
Headers | show |
--- primary.c (revision 172974) +++ primary.c (working copy) @@ -616,6 +627,29 @@ done: kind = gfc_default_double_kind; break; + case 'q': + if (kind != -2) + { + gfc_error ("Real number at %C has a 'q' exponent and an explicit " + "kind"); + goto cleanup; + } + + /* The maximum possible real kind type parameter is 16. First, try + that for the kind, then fallback to trying kind=10 (Intel 80 bit) + extended precision. If neither value works, just given up. */ s/given/give/ > OK? Ok. Thanks for fixing this! -- Janne Blomqvist