flang/test/Semantics/resolve119.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2 ! C815: an attribute may be applied at most once per scope
   3 module m
   4   real a1, a2, v1, v2
   5   asynchronous a1
   6   asynchronous a2
   7   !ERROR: ASYNCHRONOUS attribute was already specified on 'a2'
   8   asynchronous a2
   9   volatile v1
  10   volatile v2
  11   !ERROR: VOLATILE attribute was already specified on 'v2'
  12   volatile v2
  13  contains
  14   subroutine modsub
  15     asynchronous a1
  16     asynchronous a2
  17     !ERROR: ASYNCHRONOUS attribute was already specified on 'a2'
  18     asynchronous a2
  19     volatile v1
  20     volatile v2
  21     !ERROR: VOLATILE attribute was already specified on 'v2'
  22     volatile v2
  23     block
  24       asynchronous a1
  25       asynchronous a2
  26       !ERROR: ASYNCHRONOUS attribute was already specified on 'a2'
  27       asynchronous a2
  28       volatile v1
  29       volatile v2
  30       !ERROR: VOLATILE attribute was already specified on 'v2'
  31       volatile v2
  32     end block
  33   end
  34 end
  35
  36 subroutine s
  37   use m
  38   asynchronous a1
  39   asynchronous a2
  40   !ERROR: ASYNCHRONOUS attribute was already specified on 'a2'
  41   asynchronous a2
  42   volatile v1
  43   volatile v2
  44   !ERROR: VOLATILE attribute was already specified on 'v2'
  45   volatile v2
  46   block
  47     asynchronous a1
  48     asynchronous a2
  49     !ERROR: ASYNCHRONOUS attribute was already specified on 'a2'
  50     asynchronous a2
  51     volatile v1
  52     volatile v2
  53     !ERROR: VOLATILE attribute was already specified on 'v2'
  54     volatile v2
  55   end block
  56  contains
  57   subroutine internal
  58     asynchronous a1
  59     asynchronous a2
  60     !ERROR: ASYNCHRONOUS attribute was already specified on 'a2'
  61     asynchronous a2
  62     volatile v1
  63     volatile v2
  64     !ERROR: VOLATILE attribute was already specified on 'v2'
  65     volatile v2
  66     block
  67       asynchronous a1
  68       asynchronous a2
  69       !ERROR: ASYNCHRONOUS attribute was already specified on 'a2'
  70       asynchronous a2
  71       volatile v1
  72       volatile v2
  73       !ERROR: VOLATILE attribute was already specified on 'v2'
  74       volatile v2
  75     end block
  76   end
  77 end
  78