llvm/flang/test/Semantics/declarations01.f90

! RUN: %python %S/test_errors.py %s %flang_fc1
! test named constant declarations

function f1() result(x)
  !ERROR: A function result may not also be a named constant
  integer, parameter :: x = 1

  integer, parameter :: x2 = 1
  integer :: x3
  !ERROR: A named constant 'x2' may not appear in a COMMON block
  common /blk/ x2, x3

end