32 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc1 -pedantic2! test global name conflicts3 4subroutine ext15end6 7subroutine ext28 !ERROR: Two entities have the same global name 'ext1'9 common /ext1/ x10end11 12module ext413 contains14 !ERROR: Two entities have the same global name 'ext2'15 subroutine foo() bind(c,name="ext2")16 end17 !ERROR: Two entities have the same global name 'ext3'18 subroutine bar() bind(c,name="ext3")19 end20end21 22block data ext323 !PORTABILITY: Global name 'ext4' conflicts with a module [-Wbenign-name-clash]24 common /ext4/ x25end26 27subroutine s28 !ERROR: Two entities have the same global name 'foo'29 common /foo/n30 call foo31end32