For pgi 16.4 I obtain the following for Test_XmlPrinter.F90:
PGF90-S-0195-Statement may not appear in an INTERFACE block (/home/zoel_ml/VAST_playground/build_pgi/test/unit/pFUnit-prefix/src/pFUnit/tests/Test_XmlPrinter.F90: 67)
This can be fixed providing a simple bind(C) interface for system:
diff --git a/tests/Test_XmlPrinter.F90 b/tests/Test_XmlPrinter.F90
index 525e3df..3d64a38 100644
--- a/tests/Test_XmlPrinter.F90
+++ b/tests/Test_XmlPrinter.F90
@@ -64,8 +64,7 @@ contains
use ifport, only: system
#elif PGI
interface
- extrinsic (f77_local) integer function system(str)
-!pgi$ l3f system
+ integer function system(str) bind(C)
character*(*), intent(in) :: str
end function
end interface
Sorry for the delay. Somehow I failed to check patch submissions on the web site for quite some time. (I.e. somehow I was not receiving emails informing me of their presence.)
Should have this committed on the master by the end of the day. Just waiting on regression tests.