diff options
author | Brad King <brad.king@kitware.com> | 2016-09-22 18:23:39 (GMT) |
---|---|---|
committer | Brad King <brad.king@kitware.com> | 2016-09-22 18:52:01 (GMT) |
commit | eb8cd35684f2dc2f53d205d7738e1c01a12a493f (patch) | |
tree | 77732180392bf2da1fe0aa6facd25c9fe95e6614 /Tests/FortranModules/test_preprocess.F90 | |
parent | a41c8724d155f1cd74ce36cdfbd10da0eac5b389 (diff) | |
download | CMake-eb8cd35684f2dc2f53d205d7738e1c01a12a493f.zip CMake-eb8cd35684f2dc2f53d205d7738e1c01a12a493f.tar.gz CMake-eb8cd35684f2dc2f53d205d7738e1c01a12a493f.tar.bz2 |
Tests: Split Fortran module testing into separate FortranModules test
The main Fortran test is not granular enough. Split some into another
test.
Diffstat (limited to 'Tests/FortranModules/test_preprocess.F90')
-rw-r--r-- | Tests/FortranModules/test_preprocess.F90 | 53 |
1 files changed, 53 insertions, 0 deletions
diff --git a/Tests/FortranModules/test_preprocess.F90 b/Tests/FortranModules/test_preprocess.F90 new file mode 100644 index 0000000..3a09976 --- /dev/null +++ b/Tests/FortranModules/test_preprocess.F90 @@ -0,0 +1,53 @@ +MODULE Available +! no conent +END MODULE + +PROGRAM PPTEST +! value of InPPFalseBranch ; values of SkipToEnd +! 0 <empty> +#ifndef FOO + ! 1 ; <0> + USE NotAvailable +# ifndef FOO + ! 2 ; <0,0> + USE NotAvailable +# else + ! 2 ; <0,0> + USE NotAvailable +# endif + ! 1 ; <0> +# ifdef FOO + ! 2 ; <0,1> + USE NotAvailable +# else + ! 2 ; <0,1> + USE NotAvailable +# endif + ! 1 ; <0> +#else + ! 0 ; <0> + USE Available +# ifndef FOO + ! 1 ; <0,0> + USE NotAvailable +# else + ! 0 ; <0,0> + USE Available +# endif + ! 0 ; <0> +# ifdef FOO + ! 0 ; <0,1> + USE Available +# else + ! 1 ; <0,1> + USE NotAvailable +# endif + ! 0 ; <0> +#endif +! 0 ; <empty> + +USE PPAvailable + +#include "test_preprocess.h" + +END PROGRAM |