1! RUN: %python %S/test_errors.py %s %flang_fc1 2! test named constant declarations 3 4function 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 13end 14