7 lines
108 B
FortranFixed
7 lines
108 B
FortranFixed
|
! { dg-do compile }
|
||
|
|
c { dg-options "-fd-lines-as-code" }
|
||
|
|
i = 0
|
||
|
|
d end
|
||
|
|
subroutine s
|
||
|
|
D end
|