Skip to content

Commit 80a2d0a

Browse files
committed
intel fix: no inline type
1 parent d694dcf commit 80a2d0a

File tree

2 files changed

+6
-2
lines changed

2 files changed

+6
-2
lines changed

src/stdlib_system.F90

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -405,8 +405,10 @@ end subroutine process_callback
405405
module logical function is_windows()
406406
end function is_windows
407407

408-
module integer(process_ID) function process_get_ID(process) result(ID)
408+
module function process_get_ID(process) result(ID)
409409
class(process_type), intent(in) :: process
410+
!> Return a process ID
411+
integer(process_ID) :: ID
410412
end function process_get_ID
411413

412414
end interface

src/stdlib_system_subprocess.F90

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -753,8 +753,10 @@ function getfile(fileName,err,delete) result(file)
753753
end function getfile
754754

755755
!> Return process ID
756-
module integer(procesS_ID) function process_get_ID(process) result(ID)
756+
module function process_get_ID(process) result(ID)
757757
class(process_type), intent(in) :: process
758+
!> Return a process ID
759+
integer(process_ID) :: ID
758760
ID = process%id
759761
end function process_get_ID
760762

0 commit comments

Comments
 (0)