summaryrefslogtreecommitdiff
path: root/test/Sema/type.f95
diff options
context:
space:
mode:
Diffstat (limited to 'test/Sema/type.f95')
-rw-r--r--test/Sema/type.f958
1 files changed, 4 insertions, 4 deletions
diff --git a/test/Sema/type.f95 b/test/Sema/type.f95
index d563a056f9..f267c0109a 100644
--- a/test/Sema/type.f95
+++ b/test/Sema/type.f95
@@ -16,8 +16,8 @@ PROGRAM typetest
INTEGER Bar ! expected-note {{previous definition is here}}
TYPE Point
- REAL X, Y ! expected-note {{passing argument to field 'x' declared here}}
- END TYPE Point ! expected-note@-1 {{passing argument to field 'y' declared here}}
+ REAL X, Y ! expected-note {{initializing member 'x' declared here}}
+ END TYPE Point ! expected-note@-1 {{initializing member 'y' declared here}}
type Triangle
type(Point) vertices(3)
@@ -63,8 +63,8 @@ PROGRAM typetest
i = p ! expected-error {{assigning to 'integer' from incompatible type 'type point'}}
tri = p ! expected-error {{assigning to 'type triangle' from incompatible type 'type point'}}
- p = Point(.true., p) ! expected-error {{passing 'logical' to parameter of incompatible type 'real'}}
- continue ! expected-error@-1 {{passing 'type point' to parameter of incompatible type 'real'}}
+ p = Point(.true., p) ! expected-error {{initializing 'real' with an expression of incompatible type 'logical'}}
+ continue ! expected-error@-1 {{initializing 'real' with an expression of incompatible type 'type point'}}
p = Point(0.0) ! expected-error {{too few arguments to type constructor, expected 2, have 1}}
p = Point(0.0, 1.0, 2.0) ! expected-error {{too many arguments to type constructor, expected 2, have 3}}
p = Point() ! expected-error {{too few arguments to type constructor, expected 2, have 0}}