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 { ...@@ -144,6 +144,10 @@ sub ConvertToF90 {
if (/^CF90/) { if (/^CF90/) {
s/^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, # Since we use interface statements for the error handlers,
# remove their external declaration # remove their external declaration
if (/^\s+external myerrhanfunc/) { if (/^\s+external myerrhanfunc/) {
......
...@@ -21,8 +21,8 @@ ...@@ -21,8 +21,8 @@
integer :: win integer :: win
integer :: intsize integer :: intsize
integer(kind=MPI_ADDRESS_KIND), external :: MPI_Aint_add integer(kind=MPI_ADDRESS_KIND), external :: MPI_Aint_add !F77ONLY
integer(kind=MPI_ADDRESS_KIND), external :: MPI_Aint_diff integer(kind=MPI_ADDRESS_KIND), external :: MPI_Aint_diff !F77ONLY
errs = 0 errs = 0
call mtest_init(ierr); 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