! { dg-do run }
|
! { dg-do run }
|
! Test implementation of the iomsg tag.
|
! Test implementation of the iomsg tag.
|
program iomsg_test
|
program iomsg_test
|
character(len=70) ch
|
character(len=70) ch
|
|
|
! Test that iomsg is left unchanged with no error
|
! Test that iomsg is left unchanged with no error
|
ch = 'asdf'
|
ch = 'asdf'
|
open(10, status='scratch', iomsg=ch, iostat=i)
|
open(10, status='scratch', iomsg=ch, iostat=i)
|
if (ch .ne. 'asdf') call abort
|
if (ch .ne. 'asdf') call abort
|
|
|
! Test iomsg with data transfer statement
|
! Test iomsg with data transfer statement
|
read(10,'(I2)', iomsg=ch, end=100) k
|
read(10,'(I2)', iomsg=ch, end=100) k
|
call abort
|
call abort
|
100 continue
|
100 continue
|
if (ch .ne. 'End of file') call abort
|
if (ch .ne. 'End of file') call abort
|
|
|
! Test iomsg with open
|
! Test iomsg with open
|
open (-3, err=200, iomsg=ch)
|
open (-3, err=200, iomsg=ch)
|
|
|
call abort
|
call abort
|
200 continue
|
200 continue
|
if (ch .ne. 'Bad unit number in OPEN statement') call abort
|
if (ch .ne. 'Bad unit number in OPEN statement') call abort
|
|
|
! Test iomsg with close
|
! Test iomsg with close
|
close(23,status="no_idea", err=500, iomsg=ch) ! { dg-warning "STATUS specifier in CLOSE statement.*has invalid value" }
|
close(23,status="no_idea", err=500, iomsg=ch) ! { dg-warning "STATUS specifier in CLOSE statement.*has invalid value" }
|
500 continue
|
500 continue
|
if (ch .ne. "Bad STATUS parameter in CLOSE statement") call abort
|
if (ch .ne. "Bad STATUS parameter in CLOSE statement") call abort
|
end program iomsg_test
|
end program iomsg_test
|
|
|
