diff options
Diffstat (limited to 'flang/test/Semantics/resolve69.f90')
-rw-r--r-- | flang/test/Semantics/resolve69.f90 | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/flang/test/Semantics/resolve69.f90 b/flang/test/Semantics/resolve69.f90 index e3f00e2bb27a..ee3e21a6a870 100644 --- a/flang/test/Semantics/resolve69.f90 +++ b/flang/test/Semantics/resolve69.f90 @@ -64,3 +64,15 @@ Program d5 line%value = 'ok' Print *,Trim(line%value) End Program + +!Not errors. +subroutine outer + integer n + contains + character(n) function inner1() + inner1 = '' + end function inner1 + function inner2() + real inner2(n) + end function inner2 +end subroutine outer |