This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
[PATCH] PR29759
- From: Daniel Franke <franke dot daniel at gmail dot com>
- To: fortran at gcc dot gnu dot org
- Date: Fri, 10 Nov 2006 01:17:49 +0100
- Subject: [PATCH] PR29759
- Domainkey-signature: a=rsa-sha1; q=dns; c=nofws; s=beta; d=gmail.com; h=received:from:subject:date:user-agent:mime-version:to:content-type:message-id; b=VgyZb/IzUsM1SEeMOsbKEzb2Zi0uIX8APlmMDbq9oFze214MKNXxRxapMgWwdavoFV4VJ7LslkySR/885jo9sUEdkPDASevm69zy7c+ap2dQ15Qo9MGiO6hddblEtTkMDEsDgyzl8XqX+J0dDmpgYZb8omUn1QyaK9W4XSEOQfg=
Hi all,
please find attached a proposed fix for PR29759 (ICE on OMP line
continuation).
The ICE occured because all lines starting with "!$" where checked
against "!$OMP", even if they were known OMP conditional lines. The
fix for this should qualify as obvious. Is a testcase needed?
Regtested on i686-pc-linux-gnu.
If it is acceptable, could someone commit it to trunk and 4.2?
Thanks
Daniel
Index: gcc/fortran/scanner.c
===================================================================
--- gcc/fortran/scanner.c (revision 118592)
+++ gcc/fortran/scanner.c (working copy)
@@ -694,7 +694,7 @@
while (gfc_is_whitespace (c))
c = next_char ();
- if (openmp_flag)
+ if (openmp_flag && !openmp_cond_flag)
{
for (i = 0; i < 5; i++, c = next_char ())
{