1 files changed, 34 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/test_com_block.f90 b/gcc/testsuite/gfortran.dg/test_com_block.f90
new file mode 100644
index 000000000..37175d265
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/test_com_block.f90
@@ -0,0 +1,34 @@
+! { dg-do run }
+module nonF03ComBlock
+  common /NONF03COM/ r, s
+  real :: r
+  real :: s
+  
+  contains
+    
+    subroutine hello(myArray)
+      integer, dimension(:) :: myArray
+
+      r = 1.0
+      s = 2.0
+    end subroutine hello
+end module nonF03ComBlock
+
+program testComBlock
+  use nonF03ComBlock
+  integer, dimension(1:10) :: myArray
+
+  call hello(myArray)
+
+  ! these are set in the call to hello() above
+  ! r and s are reals (default size) in com block, set to 
+  ! 1.0 and 2.0, respectively, in hello()
+  if(r .ne. 1.0) then 
+     call abort()
+  endif
+  if(s .ne. 2.0) then
+     call abort()
+  endif
+end program testComBlock
+
+! { dg-final { cleanup-modules "nonf03comblock" } }