1! { dg-do run } 2! { dg-options "-std=gnu" } 3! Test for dollar descriptor in the middle of a format 4300 format(1000(a,$)) ! { dg-warning "should be the last specifier" } 5 write(*,300) "gee", "gee" 6 write(*,"(1000(a,$))") "foo", "bar" ! { dg-warning "should be the last specifier" } 7 end 8! { dg-output "^geegeefoobar$" } 9