Commit 8135cfa8 by Steven G. Kargl

invoke.texi: Update documentation.

2007-02-03  Steven G. Kargl <kargl@gcc.gnu.org>

        * fortran/invoke.texi: Update documentation.
        * fortran/options.c (gfc_post_options): Deal with tabs with -std=f2003
        and -pedantic.

2007-02-03  Steven G. Kargl <kargl@gcc.gnu.org>

        * gfortran.dg/spread_shape_1.f90: Remove tabs.
        * gfortran.dg/derived_init_2.f90: Ditto.
        * gfortran.dg/elemental_subroutine_3.f90: Ditto.
        * gfortran.dg/array_initializer_1.f90: Ditto.
        * gfortran.dg/do_2.f90: Ditto.
        * gfortran.dg/proc_assign_1.f90: Ditto.

From-SVN: r121580
parent f81ef9b3
2007-02-04 Steven G. Kargl <kargl@gcc.gnu.org>
* fortran/invoke.texi: Update documentation.
* fortran/options.c (gfc_post_options): Deal with tabs with -std=f2003
and -pedantic.
2007-02-03 Kazu Hirata <kazu@codesourcery.com> 2007-02-03 Kazu Hirata <kazu@codesourcery.com>
* trans-array.c: Fix a comment typo. * trans-array.c: Fix a comment typo.
......
...@@ -501,7 +501,8 @@ A LOGICAL SELECT construct has three CASE statements. ...@@ -501,7 +501,8 @@ A LOGICAL SELECT construct has three CASE statements.
By default, tabs are accepted as whitespace, but tabs are not members By default, tabs are accepted as whitespace, but tabs are not members
of the Fortran Character Set. @option{-Wno-tabs} will cause a warning of the Fortran Character Set. @option{-Wno-tabs} will cause a warning
to be issued if a tab is encountered. Note, @option{-Wno-tabs} is active to be issued if a tab is encountered. Note, @option{-Wno-tabs} is active
for @option{-pedantic}, @option{-std=f95}, and @option{-Wall}. for @option{-pedantic}, @option{-std=f95}, @option{-std=f2003}, and
@option{-Wall}.
@item -Wunderflow @item -Wunderflow
@cindex @code{-Wunderflow} option @cindex @code{-Wunderflow} option
......
...@@ -289,7 +289,10 @@ gfc_post_options (const char **pfilename) ...@@ -289,7 +289,10 @@ gfc_post_options (const char **pfilename)
gfc_option.flag_max_stack_var_size = 0; gfc_option.flag_max_stack_var_size = 0;
if (pedantic) if (pedantic)
{
gfc_option.warn_ampersand = 1; gfc_option.warn_ampersand = 1;
gfc_option.warn_tabs = 0;
}
if (gfc_option.flag_all_intrinsics) if (gfc_option.flag_all_intrinsics)
gfc_option.warn_nonstd_intrinsics = 0; gfc_option.warn_nonstd_intrinsics = 0;
...@@ -618,6 +621,7 @@ gfc_handle_option (size_t scode, const char *arg, int value) ...@@ -618,6 +621,7 @@ gfc_handle_option (size_t scode, const char *arg, int value)
gfc_option.max_continue_free = 255; gfc_option.max_continue_free = 255;
gfc_option.max_identifier_length = 63; gfc_option.max_identifier_length = 63;
gfc_option.warn_ampersand = 1; gfc_option.warn_ampersand = 1;
gfc_option.warn_tabs = 0;
break; break;
case OPT_std_gnu: case OPT_std_gnu:
......
2007-02-04 Steven G. Kargl <kargl@gcc.gnu.org>
* gfortran.dg/spread_shape_1.f90: Remove tabs.
* gfortran.dg/derived_init_2.f90: Ditto.
* gfortran.dg/elemental_subroutine_3.f90: Ditto.
* gfortran.dg/array_initializer_1.f90: Ditto.
* gfortran.dg/do_2.f90: Ditto.
* gfortran.dg/proc_assign_1.f90: Ditto.
2007-02-04 Richard Guenther <rguenther@suse.de> 2007-02-04 Richard Guenther <rguenther@suse.de>
PR middle-end/30636 PR middle-end/30636
...@@ -4,8 +4,10 @@ ...@@ -4,8 +4,10 @@
! !
! Contributed by Paul Thomas <pault@gcc.gnu.org> ! Contributed by Paul Thomas <pault@gcc.gnu.org>
real,dimension(:, :),pointer :: ptr real,dimension(:, :),pointer :: ptr
real,dimension(2, 2),parameter :: u = & ! { dg-warning "nonstandard" } real,dimension(2, 2) :: u
reshape((/0.25, 0.5, 0.75, 1.00/),(/2,2/))
u = reshape((/0.25, 0.5, 0.75, 1.00/),(/2,2/))
allocate (ptr(2,2)) allocate (ptr(2,2))
! Original PR ! Original PR
......
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