URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [common_11.f90] - Rev 384
Compare with Previous | Blame | View Log
! { dg-do compile }
!
! PR fortran/34658
!
! Check for more COMMON constrains
!
block data
implicit none
integer :: x, a ! { dg-warning "Initialized variable 'a' at .1. is in a blank COMMON" }
integer :: y = 5, b = 5 ! { dg-warning "Initialized variable 'b' at .1. is in a blank COMMON" }
data x/5/, a/5/
common // a, b
common /a/ x, y
end block data
subroutine foo()
implicit none
type t
sequence
integer :: i = 5
end type t
type(t) x ! { dg-error "may not have default initializer" }
common // x
end subroutine foo
program test
implicit none
common /a/ I ! { dg-warning "in COMMON but only in BLOCK DATA initialization" }
integer :: I = 43
end program test