diff options
author | Steven G. Kargl <kargl@gcc.gnu.org> | 2007-02-04 21:19:49 +0000 |
---|---|---|
committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2007-02-04 21:19:49 +0000 |
commit | 8135cfa844ab2f7a33fc300eff2917f6fbb51e8c (patch) | |
tree | 27ff80d585cc510189bc6c7ca956751b0ce7613b /gcc | |
parent | f81ef9b362abef17c2e97dff62a6fd0044d7c1cc (diff) | |
download | gcc-8135cfa844ab2f7a33fc300eff2917f6fbb51e8c.zip gcc-8135cfa844ab2f7a33fc300eff2917f6fbb51e8c.tar.gz gcc-8135cfa844ab2f7a33fc300eff2917f6fbb51e8c.tar.bz2 |
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
Diffstat (limited to 'gcc')
-rw-r--r-- | gcc/fortran/ChangeLog | 7 | ||||
-rw-r--r-- | gcc/fortran/invoke.texi | 3 | ||||
-rw-r--r-- | gcc/fortran/options.c | 6 | ||||
-rw-r--r-- | gcc/testsuite/ChangeLog | 9 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/array_initializer_1.f90 | 4 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/derived_init_2.f90 | 4 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/do_2.f90 | 4 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/elemental_subroutine_3.f90 | 2 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/proc_assign_1.f90 | 14 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/spread_shape_1.f90 | 6 |
10 files changed, 41 insertions, 18 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 0431572..91140a7 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,10 @@ +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> * trans-array.c: Fix a comment typo. diff --git a/gcc/fortran/invoke.texi b/gcc/fortran/invoke.texi index 2126d75..c4d0902 100644 --- a/gcc/fortran/invoke.texi +++ b/gcc/fortran/invoke.texi @@ -501,7 +501,8 @@ A LOGICAL SELECT construct has three CASE statements. By default, tabs are accepted as whitespace, but tabs are not members 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 -for @option{-pedantic}, @option{-std=f95}, and @option{-Wall}. +for @option{-pedantic}, @option{-std=f95}, @option{-std=f2003}, and +@option{-Wall}. @item -Wunderflow @cindex @code{-Wunderflow} option diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c index 4a00cea..0f27766 100644 --- a/gcc/fortran/options.c +++ b/gcc/fortran/options.c @@ -289,7 +289,10 @@ gfc_post_options (const char **pfilename) gfc_option.flag_max_stack_var_size = 0; if (pedantic) - gfc_option.warn_ampersand = 1; + { + gfc_option.warn_ampersand = 1; + gfc_option.warn_tabs = 0; + } if (gfc_option.flag_all_intrinsics) gfc_option.warn_nonstd_intrinsics = 0; @@ -618,6 +621,7 @@ gfc_handle_option (size_t scode, const char *arg, int value) gfc_option.max_continue_free = 255; gfc_option.max_identifier_length = 63; gfc_option.warn_ampersand = 1; + gfc_option.warn_tabs = 0; break; case OPT_std_gnu: diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index d53a458..40db44b 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,12 @@ +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> PR middle-end/30636 diff --git a/gcc/testsuite/gfortran.dg/array_initializer_1.f90 b/gcc/testsuite/gfortran.dg/array_initializer_1.f90 index a0d5761..b1db9bf 100644 --- a/gcc/testsuite/gfortran.dg/array_initializer_1.f90 +++ b/gcc/testsuite/gfortran.dg/array_initializer_1.f90 @@ -13,7 +13,7 @@ real, parameter :: r(6) = (/(x(i:i +1, i), i = 1,3)/)
real, parameter :: s(12) = (/((x(i, i:j-1:-1), i = 3,4), j = 2,3)/)
real, parameter :: t(8) = (/(z, &
- real (i)**3, y(i), i = 2, 3)/) ! { dg-warning "nonstandard" }
+ real (i)**3, y(i), i = 2, 3)/) ! { dg-warning "nonstandard" }
integer, parameter :: ii = 4
@@ -26,7 +26,7 @@ if (any (z .ne. (/11., 12./))) call abort ()
if (any (r .ne. (/1., 2., 6., 7., 11., 12./))) call abort ()
if (any (s .ne. (/11., 7., 3., 16., 12., 8., 4., &
- 11., 7., 16., 12., 8. /))) call abort ()
+ 11., 7., 16., 12., 8. /))) call abort ()
if (any (t .ne. (/11., 12., 8., 6., 11., 12., 27., 15. /))) call abort ()
diff --git a/gcc/testsuite/gfortran.dg/derived_init_2.f90 b/gcc/testsuite/gfortran.dg/derived_init_2.f90 index 99951c3..18d7544 100644 --- a/gcc/testsuite/gfortran.dg/derived_init_2.f90 +++ b/gcc/testsuite/gfortran.dg/derived_init_2.f90 @@ -16,7 +16,7 @@ module subs contains subroutine foo(fb) use dt
- type(drv), intent(out) :: fb + type(drv), intent(out) :: fb call sub (fb) end subroutine foo @@ -45,4 +45,4 @@ program main call foo(aa)
end program main
-! { dg-final { cleanup-modules "dt subs" } }
\ No newline at end of file +! { dg-final { cleanup-modules "dt subs" } } diff --git a/gcc/testsuite/gfortran.dg/do_2.f90 b/gcc/testsuite/gfortran.dg/do_2.f90 index 95959d0..207b06a 100644 --- a/gcc/testsuite/gfortran.dg/do_2.f90 +++ b/gcc/testsuite/gfortran.dg/do_2.f90 @@ -36,8 +36,8 @@ dok: DO 115 k=1,3 do enddo enddo - enddo dokkk - enddo dokk + enddo dokkk + enddo dokk 115 enddo dok ! Correct non-block do constructs do 117 l=1,3 diff --git a/gcc/testsuite/gfortran.dg/elemental_subroutine_3.f90 b/gcc/testsuite/gfortran.dg/elemental_subroutine_3.f90 index 138a46c..1f93cd4 100644 --- a/gcc/testsuite/gfortran.dg/elemental_subroutine_3.f90 +++ b/gcc/testsuite/gfortran.dg/elemental_subroutine_3.f90 @@ -28,7 +28,7 @@ program test implicit none type(mytype) :: y(6), x(6) = (/mytype(1),mytype(20),mytype(300),& mytype(4000),mytype(50000),& - mytype(1000000)/) + mytype(1000000)/) type(mytype) :: z(2, 3) ! The original case - dependency between lhs and rhs. x = x((/2,3,1,4,5,6/)) diff --git a/gcc/testsuite/gfortran.dg/proc_assign_1.f90 b/gcc/testsuite/gfortran.dg/proc_assign_1.f90 index a0f7250..418e5f4 100644 --- a/gcc/testsuite/gfortran.dg/proc_assign_1.f90 +++ b/gcc/testsuite/gfortran.dg/proc_assign_1.f90 @@ -49,12 +49,12 @@ end module simpler use simpler
real w, stmt_fcn
interface
- function ext1 ()
- integer ext1
- end function ext1
- function ext2 (arg)
- integer ext2, arg
- end function ext2
+ function ext1 ()
+ integer ext1
+ end function ext1
+ function ext2 (arg)
+ integer ext2, arg
+ end function ext2
end interface
stmt_fcn (w) = sin (w)
call x (y ())
@@ -75,4 +75,4 @@ contains y = 2 ! OK - function result
end function y
end
-! { dg-final { cleanup-modules "simple simpler" } }
\ No newline at end of file +! { dg-final { cleanup-modules "simple simpler" } }
diff --git a/gcc/testsuite/gfortran.dg/spread_shape_1.f90 b/gcc/testsuite/gfortran.dg/spread_shape_1.f90 index bbef232..650584e 100644 --- a/gcc/testsuite/gfortran.dg/spread_shape_1.f90 +++ b/gcc/testsuite/gfortran.dg/spread_shape_1.f90 @@ -4,8 +4,10 @@ ! ! Contributed by Paul Thomas <pault@gcc.gnu.org> real,dimension(:, :),pointer :: ptr - real,dimension(2, 2),parameter :: u = & ! { dg-warning "nonstandard" } - reshape((/0.25, 0.5, 0.75, 1.00/),(/2,2/)) + real,dimension(2, 2) :: u + + u = reshape((/0.25, 0.5, 0.75, 1.00/),(/2,2/)) + allocate (ptr(2,2)) ! Original PR |