gcc/testsuite/gfortran.dg/common_11.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/34658
   4 !
   5 ! Check for more COMMON constrains
   6 !
   7 block data
   8   implicit none
   9   integer :: x, a  ! { dg-warning "Initialized variable 'a' at .1. is in a blank COMMON" }
  10   integer :: y = 5, b = 5 ! { dg-warning "Initialized variable 'b' at .1. is in a blank COMMON" }
  11   data x/5/, a/5/
  12   common // a, b
  13   common /a/ x, y
  14 end block data
  15
  16 subroutine foo()
  17   implicit none
  18   type t
  19     sequence
  20     integer :: i = 5
  21   end type t
  22   type(t) x ! { dg-error "may not have default initializer" }
  23   common // x
  24 end subroutine foo
  25
  26 program test
  27   implicit none
  28   common /a/ I ! { dg-warning "in COMMON but only in BLOCK DATA initialization" }
  29   integer :: I = 43
  30 end program test