Commit a9631042 authored by Junchao Zhang's avatar Junchao Zhang
Browse files

Add a mechanism to remove F77 only lines in f77to90 translation

No reviewer
parent 1faf5663
......@@ -144,6 +144,10 @@ sub ConvertToF90 {
if (/^CF90/) {
s/^CF90/ /;
}
# Remove lines used only for F77, such as external MPI function declarations
if (/!\s*F77ONLY\s*$/i) {
$_ = "";
}
# Since we use interface statements for the error handlers,
# remove their external declaration
if (/^\s+external myerrhanfunc/) {
......
......@@ -21,8 +21,8 @@
integer :: win
integer :: intsize
integer(kind=MPI_ADDRESS_KIND), external :: MPI_Aint_add
integer(kind=MPI_ADDRESS_KIND), external :: MPI_Aint_diff
integer(kind=MPI_ADDRESS_KIND), external :: MPI_Aint_add !F77ONLY
integer(kind=MPI_ADDRESS_KIND), external :: MPI_Aint_diff !F77ONLY
errs = 0
call mtest_init(ierr);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment