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
This commit is contained in:
Steven G. Kargl
parent
f81ef9b362
commit
8135cfa844
10 changed files with 41 additions and 18 deletions
|
|
@ -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.
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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:
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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 ()
|
||||
|
||||
|
|
|
|||
|
|
@ -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" } }
|
||||
! { dg-final { cleanup-modules "dt subs" } }
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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/))
|
||||
|
|
|
|||
|
|
@ -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" } }
|
||||
! { dg-final { cleanup-modules "simple simpler" } }
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue