diff options
| author | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-02-15 00:58:01 +0000 |
|---|---|---|
| committer | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-02-15 00:58:01 +0000 |
| commit | 8959a9c0ecbb5491e854124865463a07d5175529 (patch) | |
| tree | 6f6184f5747f7073375f5728b544f6abb2e44ac1 /gcc/fortran/primary.c | |
| parent | a764af6f8aeef5d3362732a857abb4064d4a7763 (diff) | |
| download | gcc-8959a9c0ecbb5491e854124865463a07d5175529.tar.gz | |
2007-02-14 Steven G. Kargl <kargl@gcc.gnu.org>
* primary.c (match_logical_constant): Return MATCH_ERROR on invalid kind.
* gfortran.dg/logical_2.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@121974 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/primary.c')
| -rw-r--r-- | gcc/fortran/primary.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c index 64cc5e44f8d..4649b4ca02b 100644 --- a/gcc/fortran/primary.c +++ b/gcc/fortran/primary.c @@ -1025,7 +1025,10 @@ match_logical_constant (gfc_expr **result) kind = gfc_default_logical_kind; if (gfc_validate_kind (BT_LOGICAL, kind, true) < 0) - gfc_error ("Bad kind for logical constant at %C"); + { + gfc_error ("Bad kind for logical constant at %C"); + return MATCH_ERROR; + } e = gfc_get_expr (); |