Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/common_11.f90 @ 120:f93fa5091070
fix conv1.c
author | mir3636 |
---|---|
date | Thu, 08 Mar 2018 14:53:42 +0900 |
parents | 04ced10e8804 |
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