OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fix INTEGER*2 in DATA implied-DO

Browse Source 
From-SVN: r26613
This commit is contained in:
Craig Burley 1999-04-24 09:24:13 +00:00 committed by Craig Burley
parent 29df97144a
commit 81c5baa0b3
3 changed files with 27 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gcc/f/ChangeLog
View File

@ -1,3 +1,12 @@
Sat Apr 24 12:19:53 1999 Craig Burley <craig@jcb-sc.com>
* expr.c (ffeexpr_finished_): Convert DATA implied-do
start/end/incr expressions to default INTEGER.
Fix some broken conditionals.
Clean up some code in the region.
* version.c: Bump version.
Fri Apr 23 02:08:32 1999 Craig Burley <craig@jcb-sc.com>
* g77.texi (Compiler Prototypes): Replace "missing" subscript-

30
gcc/f/expr.c
View File

@ -12680,11 +12680,12 @@ again: /* :::::::::::::::::::: */
switch (ffeinfo_basictype (info))
{
case FFEINFO_basictypeLOGICAL:
error = error && !ffe_is_ugly_logint ();
if (!ffeexpr_stack_->is_rhs)
break; /* Don't convert lhs variable. */
if (! ffe_is_ugly_logint ())
error = TRUE;
if (! ffeexpr_stack_->is_rhs)
break;
expr = ffeexpr_convert (expr, ft, ft, FFEINFO_basictypeINTEGER,
ffeinfo_kindtype (ffebld_info (expr)), 0,
ffeinfo_kindtype (info), 0,
FFETARGET_charactersizeNONE,
FFEEXPR_contextLET);
break;
@ -12728,18 +12729,21 @@ again: /* :::::::::::::::::::: */
switch (ffeinfo_basictype (info))
{
case FFEINFO_basictypeLOGICAL:
error = error
&& (ffeinfo_kindtype (info) != FFEINFO_kindtypeLOGICALDEFAULT);
if (!ffeexpr_stack_->is_rhs)
break; /* Don't convert lhs variable. */
if (! ffeexpr_stack_->is_rhs)
break;
expr = ffeexpr_convert (expr, ft, ft, FFEINFO_basictypeINTEGER,
FFEINFO_kindtypeINTEGERDEFAULT, 0, FFETARGET_charactersizeNONE,
ffeinfo_kindtype (info), 0,
FFETARGET_charactersizeNONE,
FFEEXPR_contextLET);
break;
/* Fall through. */
case FFEINFO_basictypeINTEGER:
error = error &&
(ffeinfo_kindtype (info) != FFEINFO_kindtypeINTEGERDEFAULT);
if (ffeexpr_stack_->is_rhs
&& (ffeinfo_kindtype (ffebld_info (expr))
!= FFEINFO_kindtypeINTEGERDEFAULT))
expr = ffeexpr_convert (expr, ft, ft, FFEINFO_basictypeINTEGER,
FFEINFO_kindtypeINTEGERDEFAULT, 0,
FFETARGET_charactersizeNONE,
FFEEXPR_contextLET);
break;
case FFEINFO_basictypeHOLLERITH:

2
gcc/f/version.c
View File

@ -1 +1 @@
const char *ffe_version_string = "0.5.24-19990423";
const char *ffe_version_string = "0.5.24-19990424";