OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [open_errors.f90] - Blame information for rev 414

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 302 jeremybenn
! { dg-do run { target { ! { *-*-mingw* *-*-cygwin* spu-*-* } } } }
2
! PR30005 Enhanced error messages for OPEN
3
! Submitted by Jerry DeLisle  
4
! See PR38956.  Test fails on cygwin when user has Administrator rights
5
character(60) :: msg
6
character(25) :: n = "temptestfile"
7
logical :: there
8
inquire(file=n, exist=there)
9
if (.not.there) then
10
  open(77,file=n,status="new")
11
  close(77, status="keep")
12
endif
13
msg=""
14
open(77,file=n,status="new", iomsg=msg, iostat=i)
15
if (i == 0) call abort()
16
if (msg /= "File 'temptestfile' already exists") call abort()
17
 
18
open(77,file=n,status="old")
19
close(77, status="delete")
20
open(77,file=n,status="old", iomsg=msg, iostat=i)
21
if (i == 0) call abort()
22
if (msg /= "File 'temptestfile' does not exist") call abort()
23
 
24
open(77,file="./", iomsg=msg, iostat=i)
25
if (msg /= "'./' is a directory" .and. msg /= "Invalid argument") call abort()
26
 
27
open(77,file=n,status="new")
28
i = chmod(n, "-w")
29
if (i == 0 .and. getuid() /= 0) then
30
 close(77, status="keep")
31
 open(77,file=n, iomsg=msg, iostat=i, action="write")
32
 if (i == 0) call abort()
33
 if (msg /= "Permission denied trying to open file 'temptestfile'") call abort()
34
endif
35
 
36
i = chmod(n,"+w")
37
open(77,file=n, iomsg=msg, iostat=i, action="read")
38
close(77, status="delete")
39
end

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.