aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorax006ho <j.hoffmann@fh-aachen.de>2019-05-06 06:48:30 +0200
committerax006ho <j.hoffmann@fh-aachen.de>2019-05-06 06:48:30 +0200
commit4f2552f93863a545d2422018355a4e77c22241d6 (patch)
treee1365f679515c81ac87d643e9b94207d76b9dd7f
parent97e73d04c319a989da5a643e10f13425dfb12279 (diff)
downloadlistings-4f2552f93863a545d2422018355a4e77c22241d6.tar.gz
listings-4f2552f93863a545d2422018355a4e77c22241d6.tar.bz2
enhanced tests
-rw-r--r--testing/languages/fortran/f08_test.tex38
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 ---
-

Return to:

Send suggestions and report system problems to the System administrator.