===================================================================
@@ -3827,9 +3827,11 @@ match_attr_spec (void)
}
}
- /* 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)
+ /* 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)
current_attr.save = SAVE_IMPLICIT;
colon_seen = 1;
===================================================================
@@ -24,6 +24,8 @@ call bar(ac)
call bar(at)
if (i /= 12) call abort()
+deallocate(ac,at)
+
contains
subroutine bar(x)
type(t) :: x(..)
===================================================================
@@ -3,7 +3,7 @@
!
! PR fortran/46974
-program test
+subroutine test
use ISO_C_BINDING
implicit none
type(c_ptr) :: m
@@ -15,7 +15,7 @@
.and. int(z'41424345') /= a &
.and. int(z'4142434500000000',kind=8) /= a) &
call i_do_not_exist()
-end program test
+end subroutine
! Examples contributed by Steve Kargl and James Van Buskirk
===================================================================
@@ -1,9 +1,9 @@
! { dg-do run }
-! { dg-options "-fbounds-check" }
+! { dg-options "-fbounds-check -Wno-aggressive-loop-optimizations" }
integer, parameter :: nx = 3, ny = 4
- integer :: i, j, too_big
+ integer :: i, too_big
integer, parameter, dimension(nx,ny) :: p = &
reshape((/ (i*i, i=1,size(p)) /), shape(p))
===================================================================
@@ -6,7 +6,10 @@
! honoured.
!
! PR fortran/43665
-!
+
+
+subroutine test
+
interface
subroutine foo(x)
integer, intent(in) :: x
===================================================================
@@ -2,6 +2,8 @@
! { dg-options "-O2 -fdump-tree-optimized" }
! Tests whether volatile really works
! PR fortran/29601
+
+subroutine sub
logical, volatile :: t1
logical :: t2
integer :: i
===================================================================
@@ -2,6 +2,8 @@
! { 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