1*502e7690SPeter Klausler! RUN: %python %S/test_errors.py %s %flang_fc1 -pedantic -Werror 264ab3302SCarolineConcatto 364ab3302SCarolineConcatto write(*, '(B0)') 464ab3302SCarolineConcatto write(*, '(B3)') 564ab3302SCarolineConcatto 664ab3302SCarolineConcatto !WARNING: Expected 'B' edit descriptor 'w' value 764ab3302SCarolineConcatto write(*, '(B)') 864ab3302SCarolineConcatto 964ab3302SCarolineConcatto !WARNING: Expected 'EN' edit descriptor 'w' value 1064ab3302SCarolineConcatto !WARNING: Non-standard '$' edit descriptor 1164ab3302SCarolineConcatto write(*, '(EN,$)') 1264ab3302SCarolineConcatto 1364ab3302SCarolineConcatto !WARNING: Expected 'G' edit descriptor 'w' value 1464ab3302SCarolineConcatto write(*, '(3G)') 1564ab3302SCarolineConcatto 1664ab3302SCarolineConcatto !WARNING: Non-standard '\' edit descriptor 1764ab3302SCarolineConcatto write(*,'(A, \)') 'Hello' 1864ab3302SCarolineConcatto 1964ab3302SCarolineConcatto !WARNING: 'X' edit descriptor must have a positive position value 2064ab3302SCarolineConcatto write(*, '(X)') 2164ab3302SCarolineConcatto 2264ab3302SCarolineConcatto !WARNING: Legacy 'H' edit descriptor 2364ab3302SCarolineConcatto write(*, '(3Habc)') 2464ab3302SCarolineConcatto 2564ab3302SCarolineConcatto !WARNING: 'X' edit descriptor must have a positive position value 2664ab3302SCarolineConcatto !WARNING: Expected ',' or ')' in format expression 2764ab3302SCarolineConcatto !WARNING: 'X' edit descriptor must have a positive position value 2864ab3302SCarolineConcatto write(*,'(XX)') 2964ab3302SCarolineConcatto 3064ab3302SCarolineConcatto !WARNING: Expected ',' or ')' in format expression 3164ab3302SCarolineConcatto write(*,'(RZEN8.2)') 3264ab3302SCarolineConcatto 3364ab3302SCarolineConcatto !WARNING: Expected ',' or ')' in format expression 3464ab3302SCarolineConcatto write(*,'(3P7I2)') 3564ab3302SCarolineConcatto 3664ab3302SCarolineConcatto !WARNING: Expected ',' or ')' in format expression 3764ab3302SCarolineConcatto write(*,'(5X i3)') 3864ab3302SCarolineConcattoend 39