14 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! test named constant declarations3 4function f1() result(x)5 !ERROR: A function result may not also be a named constant6 integer, parameter :: x = 17 8 integer, parameter :: x2 = 19 integer :: x310 !ERROR: Named constant 'x2' may not appear in COMMON block /blk/11 common /blk/ x2, x312 13end14