diff options
author | ax006ho <j.hoffmann@fh-aachen.de> | 2019-05-06 06:48:30 +0200 |
---|---|---|
committer | ax006ho <j.hoffmann@fh-aachen.de> | 2019-05-06 06:48:30 +0200 |
commit | 4f2552f93863a545d2422018355a4e77c22241d6 (patch) | |
tree | e1365f679515c81ac87d643e9b94207d76b9dd7f | |
parent | 97e73d04c319a989da5a643e10f13425dfb12279 (diff) | |
download | listings-4f2552f93863a545d2422018355a4e77c22241d6.tar.gz listings-4f2552f93863a545d2422018355a4e77c22241d6.tar.bz2 |
enhanced tests
-rw-r--r-- | testing/languages/fortran/f08_test.tex | 38 |
1 files changed, 27 insertions, 11 deletions
diff --git a/testing/languages/fortran/f08_test.tex b/testing/languages/fortran/f08_test.tex index 28914e6..16730de 100644 --- a/testing/languages/fortran/f08_test.tex +++ b/testing/languages/fortran/f08_test.tex @@ -1,6 +1,6 @@ % $Id$ % -% two simple test cases for Fortran 2008 +% some simple test cases for Fortran 2008 % \documentclass[a4paper, 12pt]{article} @@ -11,20 +11,36 @@ \begin{document} -\typeout{before the first paragraph with the first listing} +% \typeout{before the first paragraph with the first listing} -This is a short and senseless Fortran 2008 program (it uses the -\lstinline|block|\ldots{} \lstinline|end block| construct) formatted -with a colored markup. -\lstinputlisting[language={[08]Fortran}, style=fortran]{./senseless.f08} +% This is a short and senseless Fortran 2008 program (it uses the +% \lstinline|block|\ldots{} \lstinline|end block| construct) formatted +% with a colored markup. +% \lstinputlisting[language={[08]Fortran}, style=fortran]{./senseless.f08} -\typeout{before the second paragraph with the second listing} +% \typeout{before the second paragraph with the second listing} -This is a short and senseless Fortran program formatted with colored markup. -\lstinputlisting[language={[08]Fortran}, style=fortranbw]{./senseless.f08} +% This is a short and senseless Fortran program formatted with black and white markup. +% \lstinputlisting[language={[08]Fortran}, style=fortranbw]{./senseless.f08} + + +\typeout{before the second paragraph with the first excerpt} + +This is an excerpt from a Fortran program formatted with a colored markup. +\begin{lstlisting}[language={[08]Fortran}, style=fortran] + integer :: ads + character(len=80) :: ads_message + + allocate (array(dimensions), stat = ads, errmsg = ads_message) + if ( ads /= 0 ) then + write (unit = 0, fmt = *) "Can't allocate array ""array"" with& + & dimension ""(dimensions)"":", trim(ads_message) + stop + endif +\end{lstlisting} + +\typeout{at the end after the third listing} -\typeout{at the end after the second listing} \end{document} % f08_test.tex ends here --- - |