Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/common_11.f90 @ 111:04ced10e8804
gcc 7
author | kono |
---|---|
date | Fri, 27 Oct 2017 22:46:09 +0900 |
parents | |
children |
line wrap: on
line source
! { 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