cpp.F: Copy from g77.f-torture/compile.
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:
parent
1a57987b55
commit
eee6792b41
|
@ -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
|
||||
|
|
|
@ -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
|
|
@ -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
|
Loading…
Reference in New Issue