URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [io_constraints_4.f90] - Blame information for rev 694

Details | Compare with Previous | View Log


! { dg-do compile }
! PR33268 [patch,fortran] read ('(f3.3)'), a rejected due to the extra (...)
 
write(*,('(a)')) 'Hello'
write (*,'(f8.3)'), 3.14  ! { dg-warning "Comma before i/o item list" }
print ('(a)'), "valid"
read ('(f3.3)'), a
read (*, '(f3.3)'), a     ! { dg-warning "Comma before i/o item list" }
write ('(a)'), "invalid"  ! { dg-error "Invalid form of WRITE statement" }
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! PR33268 [patch,fortran] read ('(f3.3)'), a rejected due to the extra (...)`
3
4			`write(*,('(a)')) 'Hello'`
5			`write (*,'(f8.3)'), 3.14 ! { dg-warning "Comma before i/o item list" }`
6			`print ('(a)'), "valid"`
7			`read ('(f3.3)'), a`
8			`read (*, '(f3.3)'), a ! { dg-warning "Comma before i/o item list" }`
9			`write ('(a)'), "invalid" ! { dg-error "Invalid form of WRITE statement" }`
10			`end`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [io_constraints_4.f90] - Blame information for rev 694