flang/test/Semantics/declarations04.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2 ! test global name conflicts
   3
   4 subroutine ext1
   5 end
   6
   7 subroutine ext2
   8   !ERROR: Two entities have the same global name 'ext1'
   9   common /ext1/ x
  10 end
  11
  12 module 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
  20 end
  21
  22 block data ext3
  23   !PORTABILITY: Global name 'ext4' conflicts with a module
  24   common /ext4/ x
  25 end
  26
  27 subroutine s
  28   !ERROR: Two entities have the same global name 'foo'
  29   common /foo/n
  30   call foo
  31 end