|
173
|
1 ! RUN: %S/test_errors.sh %s %t %f18
|
|
|
2 subroutine s1
|
|
|
3 !OK: interface followed by type with same name
|
|
|
4 interface t
|
|
|
5 end interface
|
|
|
6 type t
|
|
|
7 end type
|
|
|
8 type(t) :: x
|
|
|
9 x = t()
|
|
|
10 end subroutine
|
|
|
11
|
|
|
12 subroutine s2
|
|
|
13 !OK: type followed by interface with same name
|
|
|
14 type t
|
|
|
15 end type
|
|
|
16 interface t
|
|
|
17 end interface
|
|
|
18 type(t) :: x
|
|
|
19 x = t()
|
|
|
20 end subroutine
|
|
|
21
|
|
|
22 subroutine s3
|
|
|
23 type t
|
|
|
24 end type
|
|
|
25 interface t
|
|
|
26 end interface
|
|
|
27 !ERROR: 't' is already declared in this scoping unit
|
|
|
28 type t
|
|
|
29 end type
|
|
|
30 type(t) :: x
|
|
|
31 x = t()
|
|
|
32 end subroutine
|
