/haiku-buildtools/gcc/gcc/testsuite/gfortran.dg/ |
H A D | pr66725.f90 | 6 open(unit=1,access = 999) ! { dg-error "ACCESS requires" } 7 open(unit=1,action = 999) ! { dg-error "ACTION requires" } 8 open(unit=1,asynchronous = 999) ! { dg-error "ASYNCHRONOUS requires" } 9 open(unit=1,blank = 999) ! { dg-error "BLANK requires" } 10 open(unit=1,decimal = 999) ! { dg-error "DECIMAL requires" } 11 open(unit=1,delim = 999) ! { dg-error "DELIM requires" } 12 open(unit=1,encoding = 999) ! { dg-error "ENCODING requires" } 13 open(unit=1,form = 999) ! { dg-error "FORM requires" } 14 open(unit=1,pad = 999) ! { dg-error "PAD requires" } 15 open(unit [all...] |
H A D | label_4.f90 | 5 open(unit=12,err=99) 8 close(unit=12,status="delete")
|
H A D | inquire_10.f90 | 3 integer :: unit variable 7 open(file='cseq', unit=23) 8 inquire(file='cseq',number=unit) 9 if (unit /= 23) call abort 10 inquire(file=trim(cwd) // '/cseq',number=unit) 11 if (unit /= 23) call abort 13 close(unit=23, status = 'delete') 15 inquire(file='foo/../cseq2',number=unit) 16 if (unit >= 0) call abort 17 inquire(file='cseq2',number=unit) [all...] |
H A D | flush_1.f90 | 8 open (unit=10, access='SEQUENTIAL', status='SCRATCH') 17 flush(unit=10, iostat=ios) 21 flush (unit=10, err=20)
|
H A D | write_direct_eor.f90 | 7 open(unit = 10, form = 'unformatted', access = 'direct', recl = 4) 8 write(unit=10,rec=1, err=100) 1d0 11 close(unit=10, status='delete')
|
H A D | backspace_3.f | 7 open(unit=11,status='scratch',form='unformatted')
|
H A D | backspace_4.f | 7 open(unit=11,status='scratch',form='unformatted')
|
H A D | endfile.f | 7 open(unit=11,status='scratch',form='unformatted')
|
H A D | read_eof_2.f90 | 7 open(unit=11,status='scratch', form='unformatted')
|
H A D | read_eof_3.f90 | 7 open(unit=11,status='scratch', form='unformatted')
|
H A D | open_readonly_1.f90 | 6 open (unit=10, file='PR19451.dat') 9 open (unit=10, file='PR19451.dat', action="read")
|
H A D | open_access_1.f90 | 5 open (unit = 6, file = 'foo', access = a) ! { dg-error "must be of type CHARACTER" }
|
H A D | read_eof_1.f90 | 9 open(unit=11,status='scratch',form='unformatted')
|
H A D | inquire_9.f90 | 8 inquire (unit=-16, exist=l) 10 open (unit=16, file='inquire_9.tst') 11 write (unit=16, fmt='(a)') 'Test' 13 inquire (unit=16, exist=l) 18 close (unit=16) 22 open (unit=16, file='inquire_9.tst') 23 close (unit=16, status='delete')
|
H A D | namelist_88.f90 | 14 open(unit=23,status='scratch',delim='none') 21 read(unit=23,nml=tab_nml) 23 close(unit=23)
|
H A D | anyallcount_1.f90 | 18 write (unit=res,fmt=f) any(m1,dim=1) 20 write (unit=res,fmt=f) any(m2,dim=1) 22 write (unit=res,fmt=f) any(m4,dim=1) 24 write (unit=res,fmt=f) any(m8,dim=1) 26 write (unit=res,fmt=f) any(m1,dim=2) 28 write (unit=res,fmt=f) any(m2,dim=2) 30 write (unit=res,fmt=f) any(m4,dim=2) 32 write (unit=res,fmt=f) any(m8,dim=2) 35 write (unit=res,fmt=f) all(m1,dim=1) 37 write (unit [all...] |
H A D | backspace_7.f90 | 3 open(unit=10,access='SEQUENTIAL',status='SCRATCH')
|
H A D | namelist_char_only.f90 | 11 OPEN(unit=11, status='scratch') 20 OPEN(unit=11, status='scratch')
|
H A D | negative-z-descriptor.f90 | 7 write(unit=line,fmt='(Z4)') -1_1 9 write(unit=line,fmt='(Z5)') -1_2 11 write(unit=line,fmt='(Z9)') -1_4 13 write(unit=line,fmt='(Z17)') -2_8 15 write(unit=line,fmt='(Z2)') 10_8 18 write(unit=line,fmt='(Z8)') -43_8 21 write(unit=line,fmt='(B65)') -1_8 25 write(unit=line,fmt='(O4)') -2_1
|
H A D | reshape_3.f90 | 10 write (unit=line,fmt='(4I3)') reshape(a4,(/4/)) 11 write (unit=line,fmt='(4I3)') reshape(a1,(/4/))
|
/haiku-buildtools/gcc/gcc/testsuite/gfortran.fortran-torture/execute/ |
H A D | read_eof.f90 | 2 open(unit=8,status='scratch')
|
/haiku-buildtools/gcc/gcc/testsuite/g++.dg/template/ |
H A D | unify1.C | 7 class unit class 10 unit() {} function in class:unit 11 unit( const unit<I1,I2>& ) {} argument 14 unit< I1 - Q1, I2 - Q2 > operator / ( const unit< Q1, Q2 >& rhs ) const { 15 return unit< I1 - Q1, I2 - Q2 >(); 22 const unit<1,0> u1; 23 const unit<2,0> u2; 25 unit< [all...] |
H A D | non-type1.C | 4 class unit class 7 typedef unit<I1,I2> my_type; 9 unit() {} function in class:unit 10 unit( const unit<I1,I2>& ) {} argument 13 unit< I1 + Q1, I2 + Q2 > operator * ( const unit< Q1, Q2 >& rhs ) const { 14 return unit< I1 + Q1, I2 + Q2 >(); 18 unit< I1 - Q1, I2 - Q2 > operator / ( const unit< Q 26 class unit<0,0> { class 30 unit() {} function in class:unit 32 operator *( const unit<0,0>& lhs, const unit<0,0>& rhs ) argument 35 operator /( const unit<0,0>& lhs, const unit<0,0>& rhs ) argument [all...] |
/haiku-buildtools/gcc/gcc/testsuite/gcc.c-torture/compile/ |
H A D | pr21030.c | 6 foo (int unit) argument 10 for (i = 0; unit; i++, unit--)
|
/haiku-buildtools/binutils/gas/testsuite/gas/tic6x/ |
H A D | sploop-bad-5.l | 2 [^:]*:5: Error: functional unit already masked for operand 2 of 'spmask' 3 [^:]*:6: Error: functional unit already masked for operand 2 of 'spmaskr' 4 [^:]*:8: Error: functional unit already masked 5 [^:]*:10: Error: functional unit already masked
|