Fix C99-style declaration of loop variable

This commit is contained in:
Martin Kroeker 2022-08-11 16:37:23 +02:00 committed by GitHub
parent 0946b1ea7e
commit 704a024df4
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 6 additions and 5 deletions

View File

@ -717,11 +717,12 @@ integer iparam2stage_(integer *ispec, char *name__, char *opts, integer *ni,
ret_val = -1;
// s_copy(subnam, name__, (ftnlen)12, name_len);
strncpy(subnam,name__,13);
subnam[13]='\0';
for (int i=0;i<13;i++) subnam[i]=toupper(subnam[i]);
//fprintf(stderr,"iparam2stage, name__ gelesen #%s#\n",name__);
//fprintf(stderr,"iparam2stage, subnam gelesen #%s#\n",subnam);
strncpy(subnam,name__,13);
subnam[13]='\0';
{
int i;
for (i=0;i<13;i++) subnam[i]=toupper(subnam[i]);
}
#if 0