+2014-03-18 Janus Weil <janus@gcc.gnu.org>
+
+ PR fortran/55207
+ PR fortran/60549
+ * decl.c (match_attr_spec): Revert r208590.
+
2014-03-18 Jakub Jelinek <jakub@redhat.com>
PR ipa/58721
}
}
- /* Since Fortran 2008, variables declared in a MODULE or PROGRAM
- implicitly have the SAVE attribute. */
- if ((gfc_current_state () == COMP_MODULE
- || gfc_current_state () == COMP_PROGRAM)
- && !current_attr.save && (gfc_option.allow_std & GFC_STD_F2008) != 0)
+ /* Since Fortran 2008 module variables implicitly have the SAVE attribute. */
+ if (gfc_current_state () == COMP_MODULE && !current_attr.save
+ && (gfc_option.allow_std & GFC_STD_F2008) != 0)
current_attr.save = SAVE_IMPLICIT;
colon_seen = 1;
+2014-03-18 Janus Weil <janus@gcc.gnu.org>
+
+ PR fortran/55207
+ PR fortran/60549
+ * gfortran.dg/assumed_rank_7.f90: Revert r208590.
+ * gfortran.dg/c_ptr_tests_16.f90: Ditto.
+ * gfortran.dg/inline_sum_bounds_check_1.f90: Ditto.
+ * gfortran.dg/intent_optimize_1.f90: Ditto.
+ * gfortran.dg/pointer_init_9.f90: Ditto.
+ * gfortran.dg/volatile4.f90: Ditto.
+ * gfortran.dg/volatile6.f90: Ditto.
+
2014-03-18 Manuel López-Ibáñez <manu@gcc.gnu.org>
PR c/55383
call bar(at)
if (i /= 12) call abort()
-deallocate(ac,at)
-
contains
subroutine bar(x)
type(t) :: x(..)
!
! PR fortran/46974
-subroutine test
+program test
use ISO_C_BINDING
implicit none
type(c_ptr) :: m
.and. int(z'41424345') /= a &
.and. int(z'4142434500000000',kind=8) /= a) &
call i_do_not_exist()
-end subroutine
+end program test
! Examples contributed by Steve Kargl and James Van Buskirk
! { dg-do run }
-! { dg-options "-fbounds-check -Wno-aggressive-loop-optimizations" }
+! { dg-options "-fbounds-check" }
integer, parameter :: nx = 3, ny = 4
- integer :: i, too_big
+ integer :: i, j, too_big
integer, parameter, dimension(nx,ny) :: p = &
reshape((/ (i*i, i=1,size(p)) /), shape(p))
! honoured.
!
! PR fortran/43665
-
-
-subroutine test
-
+!
interface
subroutine foo(x)
integer, intent(in) :: x
+++ /dev/null
-! { dg-do run }
-!
-! PR 55207: [F08] Variables declared in the main program should implicitly get the SAVE attribute
-!
-! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
-
- type :: c
- end type c
-
- type(c), target :: x
- class(c), pointer :: px => x
-
- if (.not. associated(px)) call abort()
-end
! { dg-options "-O2 -fdump-tree-optimized" }
! Tests whether volatile really works
! PR fortran/29601
-
-subroutine sub
logical, volatile :: t1
logical :: t2
integer :: i
! { dg-options "-O2 -fdump-tree-optimized" }
! Tests whether volatile really works for arrays
! PR fortran/29601
-
-subroutine sub
logical, allocatable, volatile :: t1(:)
logical, allocatable :: t2(:)
integer :: i