mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-05 22:21:32 +08:00
Code Issues Packages Projects Releases Wiki Activity

cpp.F: Copy from g77.f-torture/compile.

Browse Source 
2004-07-13  David Billinghurst (David.Billinghurst@riotinto.com)

	* gfortran.dg/g77/cpp.F: Copy from g77.f-torture/compile.
	Add {dg-do compile} directive.
	* gfortran.dg/g77/cpp2.F: Likewise

From-SVN: r84589
This commit is contained in:
David Billinghurst 2004-07-13 00:04:02 +00:00 committed by David Billinghurst
parent 1a57987b55
commit eee6792b41
3 changed files with 25 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,9 @@
2004-07-13 David Billinghurst (David.Billinghurst@riotinto.com)
* gfortran.dg/g77/cpp.F: Copy from g77.f-torture/compile.
Add {dg-do compile} directive.
* gfortran.dg/g77/cpp2.F: Likewise
2004-07-12 Volker Reichelt <reichelt@igpm.rwth-aachen.de>
PR c++/5402
@ -16,7 +22,7 @@
2004-07-12 David Billinghurst (David.Billinghurst@riotinto.com)
* gfortran.dg/g77/12002.f: Copy from g77.f-torture/compile .
* gfortran.dg/g77/12002.f: Copy from g77.f-torture/compile.
Add {dg-do compile} directive.
* gfortran.dg/g77/13060.f: Likewise
* gfortran.dg/g77/19990218-0.f: Likewise

10
gcc/testsuite/gfortran.dg/g77/cpp.F Executable file
View File

@ -0,0 +1,10 @@
c { dg-do compile }
C When run through the C preprocessor, the indentation of the
C CONTINUE line must not be mangled.
subroutine aap(a, n)
dimension a(n)
do 10 i = 1, n
a(i) = i
10 continue
print *, a(1)
end

8
gcc/testsuite/gfortran.dg/g77/cpp2.F Executable file
View File

@ -0,0 +1,8 @@
c { dg-do compile }
C The preprocessor must not introduce a newline after
C the "a" when ARGUMENTS is expanded.
#define ARGUMENTS a\
subroutine yada (ARGUMENTS)
end