flang/test/Semantics/declarations01.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2 ! test named constant declarations
   3
   4 function f1() result(x)
   5   !ERROR: A function result may not also be a named constant
   6   integer, parameter :: x = 1
   7
   8   integer, parameter :: x2 = 1
   9   integer :: x3
  10   !ERROR: A named constant 'x2' may not appear in a COMMON block
  11   common /blk/ x2, x3
  12
  13 end