7 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12integer, parameter :: a = -103! ERROR: Assignment to constant 'a' is not allowed4! ERROR: 'shape=' argument ([INTEGER(4)::-10_4]) must not have a negative extent5a = b() - reshape([c], [a])6END7