Skip to content

R
riscv-gcc-1
Commit 7efeea5e by Jakub Jelinek
Options

[multiple changes] 

2007-02-21  Bernhard Fischer  <aldot@gcc.gnu.org>

	* 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.

From-SVN: r122190
parent 645c4086
Showing with 76 additions and 28 deletions
gcc/fortran/ChangeLog
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> 2007-02-20 Thomas Koenig <Thomas.Koenig@online.de>
PR fortran/30869 PR fortran/30869
* match.c(gfc_match_iterator): Remove conflict between * match.c (gfc_match_iterator): Remove conflict between
loop variable and pointer. loop variable and pointer.
2007-02-20 Tobias Burnus <burnus@net-b.de> 2007-02-20 Tobias Burnus <burnus@net-b.de>
...@@ -22,9 +26,9 @@ ...@@ -22,9 +26,9 @@
2007-02-19 Thomas Koenig <Thomas.Koenig@online.de> 2007-02-19 Thomas Koenig <Thomas.Koenig@online.de>
PR libfortran/30533 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. argument to default integer.
(gfc_resolve_minloc): Likewise. (gfc_resolve_minloc): Likewise.
2007-02-18 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2007-02-18 Jerry DeLisle <jvdelisle@gcc.gnu.org>
...@@ -151,7 +155,7 @@ ...@@ -151,7 +155,7 @@
2007-02-12 Nick Clifton <nickc@redhat.com> 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-02-11 Daniel Franke <franke.daniel@gmail.com>
...@@ -312,7 +316,7 @@ ...@@ -312,7 +316,7 @@
2007-01-30 Steve Ellcey <sje@cup.hp.com> 2007-01-30 Steve Ellcey <sje@cup.hp.com>
PR fortran/30432 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. to empty arg list.
* trans-decl.c (create_function_arglist): Change assert. * trans-decl.c (create_function_arglist): Change assert.
...@@ -326,27 +330,27 @@ ...@@ -326,27 +330,27 @@
2007-01-28 Thomas Koenig <Thomas.Koenig@online.de> 2007-01-28 Thomas Koenig <Thomas.Koenig@online.de>
PR libfortran/30389 PR libfortran/30389
* gfortran.h: Remove gfc_simplify_init_1. * gfortran.h: Remove gfc_simplify_init_1.
* arith.h: Remove third argument from gfc_compare_string. * arith.h: Remove third argument from gfc_compare_string.
* arith.c(gfc_compare_expression): Remove third argument * arith.c (gfc_compare_expression): Remove third argument
from call to gfc_compare_string. 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. Remove use of xcoll_table.
* misc.c(gfc_init_1): Remove call to gfc_simplify_init_1. * misc.c (gfc_init_1): Remove call to gfc_simplify_init_1.
* simplify.c(ascii_table): Remove. * simplify.c (ascii_table): Remove.
(xascii_table): Likewise. (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. 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. 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. Char values outside of 0..255 are an ICE.
(gfc_simplify_lge): Remove use of xascii_table. (gfc_simplify_lge): Remove use of xascii_table.
(gfc_simplify_lgt): Likewise. (gfc_simplify_lgt): Likewise.
(gfc_simplify_lle): Likewise. (gfc_simplify_lle): Likewise.
(gfc_simplify_llt): Likewise. (gfc_simplify_llt): Likewise.
(invert_table): Remove. (invert_table): Remove.
(gfc_simplify_init_1): Remove. (gfc_simplify_init_1): Remove.
2007-01-27 Roger Sayle <roger@eyesopen.com> 2007-01-27 Roger Sayle <roger@eyesopen.com>
...@@ -423,7 +427,7 @@ ...@@ -423,7 +427,7 @@
2007-01-20 Steven G. Kargl <kargl@gcc.gnu.org> 2007-01-20 Steven G. Kargl <kargl@gcc.gnu.org>
* openmp.c, matchexp.c, module.c, scanner.c, resolve.c, st.c, * 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. in the massive whitespace patch.
2007-01-20 Roger Sayle <roger@eyesopen.com> 2007-01-20 Roger Sayle <roger@eyesopen.com>
...@@ -632,11 +636,11 @@ ...@@ -632,11 +636,11 @@
2007-01-11 Thomas Koenig <Thomas.Koenig@online.de> 2007-01-11 Thomas Koenig <Thomas.Koenig@online.de>
PR libfortran/30415 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 of the return array is nonzero and we process an
integer array smaller than default kind, coerce integer array smaller than default kind, coerce
the array to default integer. 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-11 Brooks Moses <brooks.moses@codesourcery.com>
...@@ -689,7 +693,7 @@ ...@@ -689,7 +693,7 @@
2007-01-08 Steven G. Kargl <kargl@gcc.gnu.org> 2007-01-08 Steven G. Kargl <kargl@gcc.gnu.org>
* interface.c, intrinsic.c, gfortranspec.c, io.c, f95-lang.c, * 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> 2007-01-08 Richard Guenther <rguenther@suse.de>
...@@ -705,7 +709,7 @@ ...@@ -705,7 +709,7 @@
initialized gfortran array for a given EXPR_ARRAY. initialized gfortran array for a given EXPR_ARRAY.
(gfc_trans_constant_array_constructor): Efficiently scalarize (gfc_trans_constant_array_constructor): Efficiently scalarize
a constant array constructor. 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 Special case scalarization of constant array constructors, all of
whose elements are specified, using constant_array_constructor_p whose elements are specified, using constant_array_constructor_p
and gfc_trans_constant_array_constructor. and gfc_trans_constant_array_constructor.
...@@ -719,7 +723,7 @@ ...@@ -719,7 +723,7 @@
2007-01-07 Steven G. Kargl <kargl@gcc.gnu.org> 2007-01-07 Steven G. Kargl <kargl@gcc.gnu.org>
* decl.c, dump-parse-tree.c, error.c, data.c, expr.c, dependency.c, * 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-07 Bernhard Fischer <aldot@gcc.gnu.org>
...@@ -742,7 +746,7 @@ ...@@ -742,7 +746,7 @@
2007-01-06 Steven G. Kargl <kargl@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-06 Steven G. Kargl <kargl@gcc.gnu.org>
...@@ -768,7 +772,7 @@ ...@@ -768,7 +772,7 @@
2007-01-05 Roger Sayle <roger@eyesopen.com> 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 stride is one, to avoid fold_build2 introducing a useless
NON_LVALUE_EXPR node. NON_LVALUE_EXPR node.
......
gcc/fortran/parse.c
...@@ -485,6 +485,7 @@ next_free (void) ...@@ -485,6 +485,7 @@ next_free (void)
gcc_assert (c == "!$omp"[i]); gcc_assert (c == "!$omp"[i]);
gcc_assert (c == ' '); gcc_assert (c == ' ');
gfc_gobble_whitespace ();
return decode_omp_directive (); return decode_omp_directive ();
} }
} }
......
gcc/testsuite/ChangeLog
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> 2007-02-20 Thomas Koenig <Thomas.Koenig@online.de>
PR fortran/30869 PR fortran/30869
gcc/testsuite/gfortran.dg/gomp/omp_parse1.f90 0 → 100644
! { 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" } }
gcc/testsuite/gfortran.dg/gomp/omp_parse2.f 0 → 100644
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" } }
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment