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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [inquire_7.f90] - Blame information for rev 149

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

Line No. Rev Author Line
1 149 jeremybenn
! { dg-do run }
2
! pr 19647 / segfault on inquire(..pad=..)
3
!   Thomas.Koenig@online.de
4
!   bdavis9659@comcast.net
5
       program main
6
       character(len=10) delim
7
! quote
8
       open(10,delim='quote',status='SCRATCH')
9
       inquire(10,delim=delim)
10
       close(10)
11
       if (delim .ne. 'QUOTE') call abort
12
! apostrophe
13
       open(10,delim='apostrophe',status='SCRATCH')
14
       inquire(10,delim=delim)
15
       close(10)
16
       if (delim .ne. 'APOSTROPHE') call abort
17
! none
18
       open(10,status='SCRATCH')
19
       inquire(10,delim=delim)
20
       close(10)
21
       if (delim .ne. 'NONE') call abort
22
! undefined
23
       open(10,form='UNFORMATTED',status='SCRATCH')
24
       inquire(10,delim=delim)
25
       close(10)
26
       if (delim .ne. 'UNDEFINED') call abort
27
       end program main

powered by: WebSVN 2.1.0

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