diff options
| author | arphaman <arphaman@gmail.com> | 2013-08-23 12:07:08 +0100 |
|---|---|---|
| committer | arphaman <arphaman@gmail.com> | 2013-08-23 12:07:08 +0100 |
| commit | fb0d6b6efaf77b265405ddc6633efdb1c8cf2095 (patch) | |
| tree | ac9fe2d67cb1044ce24ae9a3e83cee0a069e9092 /test/Parser | |
| parent | e2da5464bd560f00e7bbf54f3a6bbad470bfe1b0 (diff) | |
| download | flang-fb0d6b6efaf77b265405ddc6633efdb1c8cf2095.tar.gz | |
added fixed form keyword matchers, fixed fixed-form function parsing bug
Diffstat (limited to 'test/Parser')
| -rw-r--r-- | test/Parser/fixedFormFunction.f | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/test/Parser/fixedFormFunction.f b/test/Parser/fixedFormFunction.f index aba87ed119..bae4f2667d 100644 --- a/test/Parser/fixedFormFunction.f +++ b/test/Parser/fixedFormFunction.f @@ -6,9 +6,11 @@ RETURN END -* FIXME!!! -* LOGICAL(2)FUNCTIONBAR() -* C FIXME HECK: bar = logical(.true.,Kind=2) -* BAR = .true. -* RETURN -* END + IN T EGE R(Kind=8) F U N CTIONB A R 2() + END + + LOGICAL(2)FUNCTIONBAR() +C CHECK: bar = logical(true,Kind=2) + BAR = .true. + RETURN + END |