File tree Expand file tree Collapse file tree 2 files changed +4
-4
lines changed Expand file tree Collapse file tree 2 files changed +4
-4
lines changed Original file line number Diff line number Diff line change @@ -2349,15 +2349,15 @@ end interface MPI_Register_datarep
2349
2349
interface MPI_Remove_error_class
2350
2350
subroutine MPI_Remove_error_class_f08 (errorclass ,ierror )
2351
2351
implicit none
2352
- INTEGER , INTENT (OUT ) :: errorclass
2352
+ INTEGER , INTENT (IN ) :: errorclass
2353
2353
INTEGER , OPTIONAL , INTENT (OUT ) :: ierror
2354
2354
end subroutine MPI_Remove_error_class_f08
2355
2355
end interface MPI_Remove_error_class
2356
2356
2357
2357
interface MPI_Remove_error_code
2358
2358
subroutine MPI_Remove_error_code_f08 (errorcode ,ierror )
2359
2359
implicit none
2360
- INTEGER , INTENT (OUT ) :: errorcode
2360
+ INTEGER , INTENT (IN ) :: errorcode
2361
2361
INTEGER , OPTIONAL , INTENT (OUT ) :: ierror
2362
2362
end subroutine MPI_Remove_error_code_f08
2363
2363
end interface MPI_Remove_error_code
Original file line number Diff line number Diff line change @@ -3358,7 +3358,7 @@ end interface
3358
3358
interface
3359
3359
3360
3360
subroutine MPI_Remove_error_class (errorclass , ierror )
3361
- integer , intent (out ) :: errorclass
3361
+ integer , intent (in ) :: errorclass
3362
3362
integer , intent (out ) :: ierror
3363
3363
end subroutine MPI_Remove_error_class
3364
3364
@@ -3368,7 +3368,7 @@ end interface
3368
3368
interface
3369
3369
3370
3370
subroutine MPI_Remove_error_code (errorcode , ierror )
3371
- integer , intent (out ) :: errorcode
3371
+ integer , intent (in ) :: errorcode
3372
3372
integer , intent (out ) :: ierror
3373
3373
end subroutine MPI_Remove_error_code
3374
3374
You can’t perform that action at this time.
0 commit comments