diff options
Diffstat (limited to 'gcc/ada/sem_ch8.adb')
| -rw-r--r-- | gcc/ada/sem_ch8.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb index bd752a7..5240193 100644 --- a/gcc/ada/sem_ch8.adb +++ b/gcc/ada/sem_ch8.adb @@ -4063,10 +4063,9 @@ package body Sem_Ch8 is if Is_Access_Type (P_Type) and then Ekind (Designated_Type (P_Type)) = E_Incomplete_Type then - Error_Msg_Node_2 := Selector_Name (N); - Error_Msg_NE ( - "\incomplete type& has no visible component&", P, - Designated_Type (P_Type)); + Error_Msg_N + ("\dereference must not be of an incomplete type " & + "('R'M 3.10.1)", P); end if; else |