OSDN Git Service

2007-02-21 Bernhard Fischer <aldot@gcc.gnu.org>
authorjakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 21 Feb 2007 08:36:18 +0000 (08:36 +0000)
committerjakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 21 Feb 2007 08:36:18 +0000 (08:36 +0000)
* parse.c (next_free): Gooble spaces after OpenMP sentinel.

2007-02-21  Jakub Jelinek  <jakub@redhat.com>

* gfortran.dg/gomp/omp_parse1.f90: New test.
* gfortran.dg/gomp/omp_parse2.f: New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@122190 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/fortran/ChangeLog
gcc/fortran/parse.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/gomp/omp_parse1.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/gomp/omp_parse2.f [new file with mode: 0644]

index 3597c36..cea7f13 100644 (file)
@@ -1,7 +1,11 @@
+2007-02-21  Bernhard Fischer  <aldot@gcc.gnu.org>
+
+       * parse.c (next_free): Gooble spaces after OpenMP sentinel.
+
 2007-02-20  Thomas Koenig  <Thomas.Koenig@online.de>
 
        PR fortran/30869
-       * match.c(gfc_match_iterator):  Remove conflict between
+       * match.c (gfc_match_iterator): Remove conflict between
        loop variable and pointer.
 
 2007-02-20  Tobias Burnus  <burnus@net-b.de>
@@ -22,9 +26,9 @@
 2007-02-19  Thomas Koenig  <Thomas.Koenig@online.de>
 
        PR libfortran/30533
-       * fortran/iresolve.c(gfc_resolve_maxloc):  Remove coercion of
+       * fortran/iresolve.c (gfc_resolve_maxloc): Remove coercion of
        argument to default integer.
-       (gfc_resolve_minloc):  Likewise.
+       (gfc_resolve_minloc): Likewise.
 
 2007-02-18  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
 
 2007-02-12  Nick Clifton  <nickc@redhat.com>
 
-       * lang.opt:  Add Warning attribute to warning options.
+       * lang.opt: Add Warning attribute to warning options.
 
 2007-02-11  Daniel Franke  <franke.daniel@gmail.com>
 
 2007-01-30  Steve Ellcey  <sje@cup.hp.com>
 
        PR fortran/30432
-       * trans-types.c (gfc_get_function_type):  Do not add void_type_node
+       * trans-types.c (gfc_get_function_type): Do not add void_type_node
        to empty arg list.
        * trans-decl.c (create_function_arglist): Change assert.
 
 2007-01-28  Thomas Koenig  <Thomas.Koenig@online.de>
 
        PR libfortran/30389
-       * gfortran.h:  Remove gfc_simplify_init_1.
-       * arith.h:  Remove third argument from gfc_compare_string.
-       * arith.c(gfc_compare_expression):  Remove third argument
+       * gfortran.h: Remove gfc_simplify_init_1.
+       * arith.h: Remove third argument from gfc_compare_string.
+       * arith.c (gfc_compare_expression): Remove third argument
        from call to gfc_compare_string.
-       (gfc_compare_string):  Remove third argument xcoll_table.
+       (gfc_compare_string): Remove third argument xcoll_table.
        Remove use of xcoll_table.
-       * misc.c(gfc_init_1):  Remove call to gfc_simplify_init_1.
-       * simplify.c(ascii_table):  Remove.
+       * misc.c (gfc_init_1): Remove call to gfc_simplify_init_1.
+       * simplify.c (ascii_table): Remove.
        (xascii_table): Likewise.
-       (gfc_simplify_achar):  ICE if extract_int fails.  Remove use of
+       (gfc_simplify_achar): ICE if extract_int fails.  Remove use of
        ascii_table.  Warn if -Wsurprising and value < 0 or > 127.
-       (gfc_simplify_char):  ICE if extract_int fails. Error if
+       (gfc_simplify_char): ICE if extract_int fails. Error if
        value < 0 or value > 255.
-       (gfc_simplify_iachar):  Remove use of xascii_table.
+       (gfc_simplify_iachar): Remove use of xascii_table.
        Char values outside of 0..255 are an ICE.
-       (gfc_simplify_lge):  Remove use of xascii_table.
-       (gfc_simplify_lgt):  Likewise.
-       (gfc_simplify_lle):  Likewise.
-       (gfc_simplify_llt):  Likewise.
-       (invert_table):  Remove.
-       (gfc_simplify_init_1):  Remove.
+       (gfc_simplify_lge): Remove use of xascii_table.
+       (gfc_simplify_lgt): Likewise.
+       (gfc_simplify_lle): Likewise.
+       (gfc_simplify_llt): Likewise.
+       (invert_table): Remove.
+       (gfc_simplify_init_1): Remove.
 
 2007-01-27  Roger Sayle  <roger@eyesopen.com>
 
 2007-01-20  Steven G. Kargl  <kargl@gcc.gnu.org>
 
        * openmp.c, matchexp.c, module.c, scanner.c, resolve.c, st.c,
-       parse.c, primary.c, options.c, misc.c, simplify.c:  Next installment
+       parse.c, primary.c, options.c, misc.c, simplify.c: Next installment
        in the massive whitespace patch.
 
 2007-01-20  Roger Sayle  <roger@eyesopen.com>
 2007-01-11  Thomas Koenig  <Thomas.Koenig@online.de>
 
        PR libfortran/30415
-       * iresolve.c (gfc_resolve_maxloc):  If the rank
+       * iresolve.c (gfc_resolve_maxloc): If the rank
        of the return array is nonzero and we process an
        integer array smaller than default kind, coerce
        the array to default integer.
-       * iresolve.c (gfc_resolve_minloc):  Likewise.
+       * iresolve.c (gfc_resolve_minloc): Likewise.
 
 2007-01-11  Brooks Moses  <brooks.moses@codesourcery.com>
 
 2007-01-08  Steven G. Kargl  <kargl@gcc.gnu.org>
 
        * interface.c, intrinsic.c, gfortranspec.c, io.c, f95-lang.c,
-       iresolve.c, match.c:  Update Copyright years.  Whitespace.
+       iresolve.c, match.c: Update Copyright years.  Whitespace.
 
 2007-01-08  Richard Guenther  <rguenther@suse.de>
 
        initialized gfortran array for a given EXPR_ARRAY.
        (gfc_trans_constant_array_constructor): Efficiently scalarize
        a constant array constructor.
-       (gfc_trans_array_constructor):  Tidy up use of CONST_STRING.
+       (gfc_trans_array_constructor): Tidy up use of CONST_STRING.
        Special case scalarization of constant array constructors, all of
        whose elements are specified, using constant_array_constructor_p 
        and gfc_trans_constant_array_constructor.
 2007-01-07  Steven G. Kargl  <kargl@gcc.gnu.org>
 
        * decl.c, dump-parse-tree.c, error.c, data.c, expr.c, dependency.c,
-       convert.c:  Update Copyright dates.  Fix whitespace.
+       convert.c: Update Copyright dates.  Fix whitespace.
 
 2007-01-07  Bernhard Fischer  <aldot@gcc.gnu.org>
 
 
 2007-01-06  Steven G. Kargl  <kargl@gcc.gnu.org>
 
-       * array.c, bbt.c, check.c:  Update copyright years.  Whitespace.
+       * array.c, bbt.c, check.c: Update copyright years.  Whitespace.
 
 2007-01-06  Steven G. Kargl  <kargl@gcc.gnu.org>
 
 
 2007-01-05  Roger Sayle  <roger@eyesopen.com>
 
-       * trans-array.c (gfc_conv_loop_setup):  Test whether the loop
+       * trans-array.c (gfc_conv_loop_setup): Test whether the loop
        stride is one, to avoid fold_build2 introducing a useless
        NON_LVALUE_EXPR node.
 
index eb7802e..6e36ea2 100644 (file)
@@ -485,6 +485,7 @@ next_free (void)
            gcc_assert (c == "!$omp"[i]);
 
          gcc_assert (c == ' ');
+         gfc_gobble_whitespace ();
          return decode_omp_directive ();
        }
     }
index d387079..55927de 100644 (file)
@@ -1,3 +1,8 @@
+2007-02-21  Jakub Jelinek  <jakub@redhat.com>
+
+       * gfortran.dg/gomp/omp_parse1.f90: New test.
+       * gfortran.dg/gomp/omp_parse2.f: New test.
+
 2007-02-20  Thomas Koenig  <Thomas.Koenig@online.de>
 
        PR fortran/30869
diff --git a/gcc/testsuite/gfortran.dg/gomp/omp_parse1.f90 b/gcc/testsuite/gfortran.dg/gomp/omp_parse1.f90
new file mode 100644 (file)
index 0000000..9cd5ebf
--- /dev/null
@@ -0,0 +1,24 @@
+! { dg-do compile }
+! { dg-options "-fopenmp -fdump-tree-omplower" }
+  !$omp  parallel
+call bar
+       !$omp end parallel
+  !$omp                p&
+!$omp&arallel
+call bar
+!$omp e&
+!$omp&ndparallel
+!$omp  &
+!$omp  &  &
+!$omp pa&
+!$omp rallel
+call bar
+!$omp end parallel
+! Non-continuation !$omp must be followed by space, and my reading
+! doesn't seem to allow tab there.  So such lines should be completely
+! ignored.
+!$omp  strange
+end
+
+! { dg-final { scan-tree-dump-times "pragma omp parallel" 3 "omplower" } }
+! { dg-final { cleanup-tree-dump "omplower" } }
diff --git a/gcc/testsuite/gfortran.dg/gomp/omp_parse2.f b/gcc/testsuite/gfortran.dg/gomp/omp_parse2.f
new file mode 100644 (file)
index 0000000..510d337
--- /dev/null
@@ -0,0 +1,14 @@
+c { dg-do compile }
+c { dg-options "-fopenmp -fdump-tree-omplower" }
+!$omp  parallel
+      call bar
+c$omp  end parallel
+C$omp          p
+*$omp+arallel
+      call bar
+!$omp e
+!$omp+ndparallel
+      end
+
+! { dg-final { scan-tree-dump-times "pragma omp parallel" 2 "omplower" } }
+! { dg-final { cleanup-tree-dump "omplower" } }