beginner's guide to gfortran testsuite (was: Re: [patch] pr21302: Max line length in free form mode)

[Bernhard Fischer]

On Wed, Nov 23, 2005 at 11:10:36PM +0100, FX Coudert wrote:
[snip informative gfortran testsuite explanation]

>>The testcases are still valid:
>>http://gcc.gnu.org/ml/fortran/2005-11/msg00551.html
>
>For the testcases, they need to be put into suitable dejagnu framework 
>form. From the examples you gave, we can make two independent testcases.

A testcase each for -ffixed-line-length-none and -ffree-line-length-none 
is attached.

Please apply.
-------------- next part --------------
Index: gcc/testsuite/gfortran.dg/line_length_1.f
===================================================================
--- gcc/testsuite/gfortran.dg/line_length_1.f	(revision 0)
+++ gcc/testsuite/gfortran.dg/line_length_1.f	(revision 0)
@@ -0,0 +1,7 @@
+! Testcase for -ffixed-line-length-none
+! { dg-do compile }
+! { dg-options "-ffixed-line-length-none" }
+      program one
+       if (abs(aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa).gt.999.d0.or.abs(bbbbbbbbbbbbbbbbbbbbbbbbbbbbbb).gt.999.d0.or.abs(cccccccccccccccccccc).gt.999.d0) THEN
+       endif
+      end program one
Index: gcc/testsuite/gfortran.dg/line_length_2.f90
===================================================================
--- gcc/testsuite/gfortran.dg/line_length_2.f90	(revision 0)
+++ gcc/testsuite/gfortran.dg/line_length_2.f90	(revision 0)
@@ -0,0 +1,8 @@
+! Testcase for -ffree-line-length-none
+! See PR fortran/21302
+! { dg-do compile }
+! { dg-options "-ffree-line-length-none" }
+program two
+ if (abs(aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa).gt.999.d0.or.abs(bbbbbbbbbbbbbbbbbbbbbbbbbbbbbb).gt.999.d0.or.abs(cccccccccccccccccccc).gt.999.d0) THEN
+ endif
+end program two