1! RUN: %python %S/test_errors.py %s %flang_fc1 -pedantic 2! test global name conflicts 3 4subroutine ext1 5end 6 7subroutine ext2 8 !ERROR: Two entities have the same global name 'ext1' 9 common /ext1/ x 10end 11 12module ext4 13 contains 14 !ERROR: Two entities have the same global name 'ext2' 15 subroutine foo() bind(c,name="ext2") 16 end 17 !ERROR: Two entities have the same global name 'ext3' 18 subroutine bar() bind(c,name="ext3") 19 end 20end 21 22block data ext3 23 !PORTABILITY: Global name 'ext4' conflicts with a module 24 common /ext4/ x 25end 26 27subroutine s 28 !ERROR: Two entities have the same global name 'foo' 29 common /foo/n 30 call foo 31end 32