annotate flang/test/Semantics/resolve51.f90 @ 181:df311c476dd5
CreateIdentifierInfo in ParseCbC (not yet worked)
| author |
Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
| date |
Sun, 31 May 2020 12:30:11 +0900 |
| parents |
0572611fdcc8 |
| children |
2e18cbf3894f |
| rev |
line source |
|
173
|
1 ! RUN: %S/test_errors.sh %s %t %f18
|
|
|
2 ! Test SELECT TYPE errors: C1157
|
|
|
3
|
|
|
4 subroutine s1()
|
|
|
5 type :: t
|
|
|
6 end type
|
|
|
7 procedure(f) :: ff
|
|
|
8 !ERROR: Selector is not a named variable: 'associate-name =>' is required
|
|
|
9 select type(ff())
|
|
|
10 class is(t)
|
|
|
11 class default
|
|
|
12 end select
|
|
|
13 contains
|
|
|
14 function f()
|
|
|
15 class(t), pointer :: f
|
|
|
16 f => null()
|
|
|
17 end function
|
|
|
18 end subroutine
|
