summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/common_6.f90
blob: 8cef179e74f9cc335e976a8b03a748c0bf269f32 (plain)
1
2
3
4
5
6
7
8
9
10
! { dg-do compile }
! PR 23765 : We used to incorrectly accept common blocks with no symbols
common          ! { dg-error "Syntax error" }
common //       ! { dg-error "Syntax error" }
common /a/      ! { dg-error "Syntax error" }
common /b/x/c/  ! { dg-error "Syntax error" }
common y/d/     ! { dg-error "Syntax error" }
common /e//f/   ! { dg-error "Syntax error" }
common ///g/    ! { dg-error "Syntax error" }
end