19 lines
363 B
Fortran
19 lines
363 B
Fortran
! { dg-do compile }
|
|
MODULE globals
|
|
TYPE :: type1
|
|
sequence
|
|
integer :: x
|
|
END TYPE type1
|
|
TYPE (type1) :: pdm_bps
|
|
common /co/ pdm_bps
|
|
END module globals
|
|
BLOCK DATA
|
|
use globals
|
|
END BLOCK DATA
|
|
|
|
program main
|
|
use globals
|
|
common /co/ pdm_bps ! { dg-error "already in a COMMON block" }
|
|
end program main
|
|
! { dg-final { cleanup-modules "globals" } }
|