aboutsummaryrefslogtreecommitdiff
path: root/flang/test/Semantics/declarations02.f90
diff options
context:
space:
mode:
Diffstat (limited to 'flang/test/Semantics/declarations02.f90')
-rw-r--r--flang/test/Semantics/declarations02.f9014
1 files changed, 14 insertions, 0 deletions
diff --git a/flang/test/Semantics/declarations02.f90 b/flang/test/Semantics/declarations02.f90
index 439527a..f39c233 100644
--- a/flang/test/Semantics/declarations02.f90
+++ b/flang/test/Semantics/declarations02.f90
@@ -10,6 +10,20 @@ module m
integer, parameter :: x3 = 1
bind(c) :: x3
+ !ERROR: 'x4' may not have both the ALLOCATABLE and PARAMETER attributes
+ !ERROR: 'x4' may not have both the ASYNCHRONOUS and PARAMETER attributes
+ !ERROR: 'x4' may not have both the SAVE and PARAMETER attributes
+ !ERROR: 'x4' may not have both the TARGET and PARAMETER attributes
+ !ERROR: 'x4' may not have both the VOLATILE and PARAMETER attributes
+ !ERROR: The entity 'x4' with an explicit SAVE attribute must be a variable, procedure pointer, or COMMON block
+ !ERROR: An entity may not have the ASYNCHRONOUS attribute unless it is a variable
+ integer, parameter :: x4 = 1
+ allocatable x4
+ asynchronous x4
+ save x4
+ target x4
+ volatile x4
+
type :: my_type1
integer :: x4
end type