diff options
| author | arphaman <arphaman@gmail.com> | 2013-09-09 16:10:25 +0100 |
|---|---|---|
| committer | arphaman <arphaman@gmail.com> | 2013-09-09 16:10:25 +0100 |
| commit | 8895542f640398000e38a5adafb84617d44f35d9 (patch) | |
| tree | 115febcf04e8e1d145d3c10435f70c01be2a4ecb /test/Parser | |
| parent | 45b21c470ae5f7a31d8ec3f23361e7932064a326 (diff) | |
| download | flang-8895542f640398000e38a5adafb84617d44f35d9.tar.gz | |
added parsing for component-decl in a type construct
Diffstat (limited to 'test/Parser')
| -rw-r--r-- | test/Parser/type.f95 | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/test/Parser/type.f95 b/test/Parser/type.f95 index 79e3ba0b9a..5728195507 100644 --- a/test/Parser/type.f95 +++ b/test/Parser/type.f95 @@ -9,8 +9,8 @@ PROGRAM typetest end type pair type person - ! FIXME: character*10 name(2) - ! FIXME: character*20, dimension(5:10) :: save, skills + character*10 name(2) + character*20, dimension(5:10) :: save, skills integer age real, dimension(2,2) :: personality integer, save :: id ! expected-error {{use of 'save' attribute specifier in a type construct}} @@ -20,6 +20,14 @@ PROGRAM typetest type foo 22 ! expected-error {{expected line break or ';' at end of statement}} integer :: k + character(20) :: string + character(10) str + end type + + type ping + integer, dimension(11) :: arr1, arr2(13) + character a(10)*(5), b*8, c(1) + character*10 :: p*10 ! expected-error {{duplicate character length declaration specifier}} end type type params ! expected-note {{to match this 'type'}} |