Skip to content

Commit

Permalink
Fixes build issue due to duplicate module names.
Browse files Browse the repository at this point in the history
The two files in this commit both declared modules of the same name.
The modules are identical in both files, so the order of the build
only matters in so far as they cannot build at the same time.

Intel was occasionally generating obscure internal compiler errors.
These are never wrong, but I don't think Intel really wants to suport
this, so how to report?
  • Loading branch information
Tom Clune authored and Tom Clune committed Jul 2, 2019
1 parent 65b3c59 commit ca220aa
Show file tree
Hide file tree
Showing 2 changed files with 14 additions and 14 deletions.
14 changes: 7 additions & 7 deletions GMAO_pFIO/pfio_collective_demo.F90
Original file line number Diff line number Diff line change
Expand Up @@ -9,7 +9,7 @@
#define _RETURN(A) if(present(rc)) rc=A; return
#include "unused_dummy.H"

module CLI
module CLI_collective
use pFIO_ThrowMod
use pFIO_StringVectorMod
implicit none
Expand Down Expand Up @@ -117,10 +117,10 @@ end function parse_vars
end subroutine process_command_line


end module CLI
end module CLI_collective

module FakeExtDataMod
use CLI
module FakeExtDataMod_collective
use CLI_collective
use pFIO
use pFIO_StringVectorMod
use, intrinsic :: iso_fortran_env, only: REAL32
Expand Down Expand Up @@ -293,14 +293,14 @@ subroutine finalize(this)
call this%c%terminate()
end subroutine finalize

end module FakeExtDataMod
end module FakeExtDataMod_collective

program main
use, intrinsic :: iso_fortran_env, only: REAL32
use mpi
use pFIO
use CLI
use FakeExtDataMod
use CLI_collective
use FakeExtDataMod_collective
use pFIO_ThrowMod
implicit none

Expand Down
14 changes: 7 additions & 7 deletions GMAO_pFIO/pfio_server_demo.F90
Original file line number Diff line number Diff line change
Expand Up @@ -9,7 +9,7 @@
#define _RETURN(A) if(present(rc)) rc=A; return
#include "unused_dummy.H"

module CLI
module CLI_server
use pFIO_ThrowMod
use pFIO_StringVectorMod
implicit none
Expand Down Expand Up @@ -117,10 +117,10 @@ end function parse_vars
end subroutine process_command_line


end module CLI
end module CLI_serve

module FakeExtDataMod
use CLI
module FakeExtDataMod_server
use CLI_server
use pFIO
use pFIO_StringVectorMod
use, intrinsic :: iso_fortran_env, only: REAL32
Expand Down Expand Up @@ -262,14 +262,14 @@ subroutine finalize(this)
call this%c%terminate()
end subroutine finalize

end module FakeExtDataMod
end module FakeExtDataMod_server

program main
use, intrinsic :: iso_fortran_env, only: REAL32
use mpi
use pFIO
use CLI
use FakeExtDataMod
use CLI_server
use FakeExtDataMod_server
use pFIO_ThrowMod
implicit none

Expand Down

0 comments on commit ca220aa

Please sign in to comment.